ACBRMonitorPlus - Como efetuar um Simples envio de EMail?

[carlos_augusto]

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

[José M. S. Junior]

Boa noite

Os dados de configuração da conta pode deixar pré configurado em tela ou passar em um arquivo .ini utilizando o método. EMAIL.Novo

ex:

EMAIL.Novo("

NomeExibicao=Adalberto de Soares Silva

[email protected]

Email=smtp.gmail.com

[email protected]

Senha=**************

Porta=587

ExigeSSL=0

ExigeTLS=1") 

 

Após essa configuração deve enviar os demais métodos de configuração (Lembrando que deve ser um método de cada vez, após obter o  retorno envia o próximo até chegar ao último método de Enviar)

 

EMAIL.ConfirmarLeitura(True)

EMAIL.AdicionaPara("[email protected]")

EMAIL.Assunto("Teste de e-mail")

EMAIL.TextoMensagem("Veja anexo!")

EMAIL.AdicionaAnexo("C:\arquivo.pdf")

EMAIL.Enviar

[carlos_augusto]

Sr. José

Se bem entendi, deverei criar 1 arquivo ENT.TXT para cada uma destas linhas :

 

EMAIL.ConfirmarLeitura(True)

EMAIL.AdicionaPara("[email protected]")

EMAIL.Assunto("Teste de e-mail")

EMAIL.TextoMensagem("Veja anexo!")

EMAIL.AdicionaAnexo("C:\arquivo.pdf")

EMAIL.Enviar

É isto mesmo?

[José M. S. Junior]

Sim, em cada ent.txt deve passar apenas um comando, sua aplicação lê a resposta para poder enviar o próximo comando.

[carlos_augusto]

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;
 

 

 

 

 

[José M. S. Junior]

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/

[carlos_augusto]

Sr. José

Boa Noite!

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

Grato

[Italo Giurizzato Junior]

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.

[carlos_augusto]

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

 

 

[José M. S. Junior]

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.

[Juliomar Marchetti]

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