enviar anexo por email

Delphi

17/09/2005

Estou precisando que meu sistema envie-me diariamente um e-mail com um anexo de relatorios feitos no excel. Será que alguém poderia me ajudar?

Obrigado,
Junior


Sérgio Gobbo

Sérgio Gobbo

Curtidas 0

Respostas

Massuda

Massuda

17/09/2005

Tem vários tópicos sobre isso aqui no fórum.

[url=http://forum.clubedelphi.net/viewtopic.php?t=65357]Neste tópico[/url] tem um exemplo básico de envio usando Indy.

[url=http://forum.clubedelphi.net/viewtopic.php?t=53412]Neste tópico[/url] o colega Zotti apresenta um exemplo de envio (com anexo) usando MAPI.

O Indy vai gerar e enviar o email enquanto MAPI apenas deixa o email na caixa de saída do programa de email padrão da máquina, que se encarrega de enviar o email.


GOSTEI 0
Sérgio Gobbo

Sérgio Gobbo

17/09/2005

Obrigado Massuda, mas sem querer abusar, ainda não entendi como anexar o arquivo pelo Indy, tem como me explicar por favor?

Obrigado,
Junior


GOSTEI 0
Massuda

Massuda

17/09/2005

Desculpe... eu sabia que o exemplo básico que citei não tinha o anexo. Um exemplo com anexo (na verdade, tem apenas uma linha a mais) seria...
... 
  // monte sua mensagem usando um TIdMessage 
  IdMessage1.Recipients.Add(´alguem@example.com´); 
  IdMessage1.Subject := ´Assunto´; 
  IdMessage1.Body.Add(´Texto da mensagem´); 

  // anexa alguns arquivos
  TIdAttachment.Create(IdMessage1.MessageParts, NomeDoArquivo1); 
  TIdAttachment.Create(IdMessage1.MessageParts, NomeDoArquivo2); 
  TIdAttachment.Create(IdMessage1.MessageParts, NomeDoArquivo3); 

  // nome do seu servidor SMTP 
...



GOSTEI 0
Sérgio Gobbo

Sérgio Gobbo

17/09/2005

Brigadão ae Massuda, vo testa td e depois dou retorno...

Vlw


GOSTEI 0
Sérgio Gobbo

Sérgio Gobbo

17/09/2005

Massuda, desculpa enche o saco dnovo com isso, mas é que eu testei o código pra envia o email, de acordo com o link que vc passou (nem testei com a anexagem ainda) e ele gerou a seguinte excessão:

´EIdProtocolReplyError´, com mensagem: ´5.7.0 Must issue a STARTTLS command first 35sm411350wra´

E o cursor aponta o erro nessa linha:
´IdSMTP1.Send(IdMessage1);´

Você sabe oq pode ser?

VLW


GOSTEI 0
Massuda

Massuda

17/09/2005

´EIdProtocolReplyError´, com mensagem: ´5.7.0 Must issue a STARTTLS command first 35sm411350wra´
Achoq ue você está usando uma conta com acesso via SSL. Você está tentando usar uma conta do GMail?

Se for seu caso, dê uma olhada [url=http://forum.clubedelphi.net/viewtopic.php?t=60778]neste tópico[/url], mas note que eu ainda não tive necessidade de usar o GMail, por isso não sei dizer se vai funcionar.


GOSTEI 0
POSTAR