enviar anexo por email

Question

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...

Massuda · Answer

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.

S�rgio Gobbo · Answer

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

Massuda · Answer

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 
...

S�rgio Gobbo · Answer

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

S�rgio Gobbo · Answer

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

Massuda · Answer

[quote:d889310263=�junior_gobbo�]�EIdProtocolReplyError�, com mensagem: �5.7.0 Must issue a STARTTLS command first 35sm411350wra�[/quote:d889310263]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=//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....

F�rum enviar anexo por email #295886