Ir para conteúdo
  • Cadastre-se

dev botao

ACBRMonitorPlus - Como efetuar um Simples envio de EMail?


Ver Solução Respondido por José M. S. Junior,
  • Este tópico foi criado há 1361 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Prezados Companheiros

Boa Noite!

Senhores, gostaria de solicitar uma ajuda bem objetiva dos senhores!

Eu sou iniciante no uso do AcbrMonitorPlus.
Minha primeira e única necessidade no seu uso é : Envio de Email.

E confesso que eu não consigo entender, através da leitura dos Manuais , como devo gerar um simples comando básico de envio de emails utilizando o AcbrMonitorPlus.

Minhas questôes são: O que deve ficar em um arquivo INI ? O que deve ser gerado como comando dentro do arquivo ENT.TXT ?

Baseados nos dados abaixo, podem os companheiros formular um exemplo exato de como devem ficar estas informações ?
Eu preciso na verdade que formulem um exemplo básico para mim!

Dados do Envio do Email :

NomeExibicao=EMPRESA TESTE
[email protected]
Email=mail.empresateste.com.br
Usuario=mail.empresateste.com.br
Senha=empresateste1234
Porta=587
ExigeSSL=0
ExigeTLS=0

EMAIL.ConfirmarLeitura(True)
EMAIL.AdicionaPara("[email protected]")
EMAIL.Assunto("Seu Pedido")
EMAIL.TextoMensagem("Sr. Cliente. Em anexo arquivo contendo resumo de seu pedido")
EMAIL.AdicionaAnexo("C:\pedido.pdf")

Grato

Carlos Augusto
Franca-Sp

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Senhor José

Eu criei o código-fonte abaixo , com finalidade de enviar os comandos individualmente.
Porém, resultou na seguinte mensagem de erro : "ERRO: E-mail não iniciado. Envie um comando EMAIL.Novo"
Note que neste código-fonte estou gerando 7 arquivos ENT.TXT.  

Será que vou ter que impor um intervalo de tempo entre as gerações do arquivo ENT.TXT?

Grato

CÓDIGO FONTE DELPHI:
var
  sls : TStringList;
  stTexto : String;
begin
  sls := TStringList.Create;
  try
    sls.Text := '';
    stTexto := 'EMAIL.Novo("C:\ACBrMonitorPLUS\INI\Config_Banco.ini")';
    sls.Text := stTexto;
    sls.SaveToFile('C:\ACBrMonitorPLUS\ENTRADA\ent.txt');
  finally
    sls.Free;
  end;
  sls := TStringList.Create;
  try
    sls.Text := '';
    stTexto  := 'EMAIL.ConfirmarLeitura(True)';
    sls.Text := stTexto;
    sls.SaveToFile('C:\ACBrMonitorPLUS\ENTRADA\ent.txt');
  finally
    sls.Free;
  end;
  sls := TStringList.Create;
  try
    sls.Text := '';
    stTexto  := 'EMAIL.AdicionaPara("********@com4.com.br")';
    sls.Text := stTexto;
    sls.SaveToFile('C:\ACBrMonitorPLUS\ENTRADA\ent.txt');
  finally
    sls.Free;
  end;
  sls := TStringList.Create;
  try
    sls.Text := '';
    stTexto  := 'EMAIL.Assunto("Teste de e-mail KDELICIA")';
    sls.Text := stTexto;
    sls.SaveToFile('C:\ACBrMonitorPLUS\ENTRADA\ent.txt');
  finally
    sls.Free;
  end;
  sls := TStringList.Create;
  try
    sls.Text := '';
    stTexto  := 'EMAIL.TextoMensagem("Veja anexo!")';
    sls.Text := stTexto;
    sls.SaveToFile('C:\ACBrMonitorPLUS\ENTRADA\ent.txt');
  finally
    sls.Free;
  end;
  sls := TStringList.Create;
  try
    sls.Text := '';
    stTexto  := 'EMAIL.AdicionaAnexo("C:\ACBrMonitorPLUS\INI\Config_Banco.INI")';
    sls.Text := stTexto;
    sls.SaveToFile('C:\ACBrMonitorPLUS\ENTRADA\ent.txt');
  finally
    sls.Free;
  end;
  sls := TStringList.Create;
  try
    sls.Text := '';
    stTexto  := 'EMAIL.Enviar';
    sls.Text := stTexto;
    sls.SaveToFile('C:\ACBrMonitorPLUS\ENTRADA\ent.txt');
  finally
    sls.Free;
  end;
  showmessage('Email Enviado');
end;
 

 

 

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Boa tarde Carlos, na verdade se você utiliza Delphi será muito mais prático utilizar os próprios componentes do ACBr, todas estas configurações podem ser passadas diretamente para as propriedades do componente ACBrMail e simplesmente chamar o método de envio.

O ACBrMonitor é indicado para integrações com outras linguagens, com Delphi utilize os componentes ACBr...

Veja o exemplo utilizando o demo ACBrEmail: http://svn.code.sf.net/p/acbr/code/trunk2/Exemplos/ACBrTCP/ACBrMail/

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Carlos,

O ACBrMonitor Plus tem como objetivo atender os desenvolvedores que trabalham com outras linguagens de programação.

Quem programa em Objeto Pascal que é o caso do Delphi e Lazarus podem utilizar os componentes diretamente.

1. Você baixa os fontes dos componentes na maquina que tem o Delphi instalado;

2. Depois instala a suíte de componentes ACBr no seu Delphi, utilizando o ACBrInstall_Trunk2.

3. Utilize os componentes que desejar na sua aplicação.

Temos um programa exemplo para cada componente, estude eles antes de utilizar o componente desejado na sua aplicação.

Para mais informações clique aqui.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Senhores

Achei a causa do problema.

Acredito que o problema estava relacionado com a geração quase que ao mesmo tempo dos arquivos ent.txt.

O que fiz foi atribuir um intervalo de tempo (   sleep(150)  ) e a geração do email funcionou normalmente. Veja:

OK: Novo E-mail iniciado!
OK: 
OK: E-mail ********@com4.com.br adicionado a lista "Para".
OK: 
OK: 
OK: Anexo incluído com sucesso!
OK: E-mail enviado com sucesso!

Podem fechar este tópico, por favor.

Grato

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution

Bom dia, conforme o Italo relatou, não faz sentido utilizar o ACBrMonitor com Delphi sendo que os componentes que o ACBrMonitor utiliza são desenvolvidos em Delphi... Para quem utiliza Delphi é bem mais prático utilizar os componentes seguindo os exemplo do demo.

Quanto a integração utilizando o ACBrMonitor sua aplicação precisa ter uma rotina que valide o retorno de cada método, se não for OK deve abortar a operação e obter a mensagem de erro, simplesmente colocar um sleep pode ignorar erros que podem ocorrer no envio de cada método, dificultando a resolução.

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Moderadores
Em 03/07/2020 at 23:19, carlos_augusto disse:

Sr. José

Boa Noite!

Então o AcbrMonitorPlus não deve ser utilizado com aplicações Delphi ?

Grato

Não. tu tem maior controle se usar os componentes. o Monitor foi feito para quem quer usar o ACBr e não programa em delphi ou lazarus

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.