F�rum E-Mail com Delphi 2010 #398623

01/04/2011

Estou com problemas ao enviar um email usando indy com delphi 2010N�o estou conseguindo anexar um arquivo.Alguem j� conseguiu anexar e manter formato html
Segue meu codigo:

  data.idsmtp.connect;  data.idmessage.recipients.clear;  data.idmessage.cclist.clear;  data.idmessage.body.clear;  data.idmessage.recipients.add.address := semail;  data.idmessage.from.name   := 'XXXXX';  data.idmessage.from.address:= 'XXXXX';  data.idmessage.subject     := 'Aulas Agendadas.';  data.idmessage.date         := date;  data.idmessage.messageparts.clear;  data.idmessage.contenttype := 'text/html';  //TIdAttachmentFile.Create(data.idmessage.MessageParts,'c:\google.csv');  data.idmessage.body.add(memo1.lines.text);  data.idsmtp.send(data.idmessage);  if data.idsmtp.connected then data.idsmtp.disconnect;

Grato

Eduardo Marcolongo

Curtir t�pico

+ 0

Responder

Posts

04/04/2011

Eduardo Marcolongo

Resolvido.Usei este arquivo para adaptar o meu codigo: https://www.devmedia.com.br/post-2551-Enviar-anexo-no-corpo-do-Email-com-Indy.html
Meu codigo ficou assim:

Uses IdAttachmentFile, IdText;
data.idsmtp.connect;data.idmessage.recipients.clear;data.idmessage.cclist.clear;data.idmessage.body.clear;data.idmessage.recipients.add.address := 'xxx@xxx.com';data.idmessage.from.name   := 'XXXXXXXXXX';data.idmessage.from.address:= 'xxx@xxxxx.com.br';data.idmessage.subject     := 'Aulas Agendadas.';data.idmessage.date        := date;with tidtext.create(data.idmessage.messageparts) do  begin  body.clear;  body.add(memo1.lines.text);  contenttransfer:= '7bit';  contenttype    := 'text/html';  end;with tidtext.create(data.idmessage.MessageParts) do  begin  contenttype := 'multipart/related';  tidattachmentfile.create(data.idmessage.messageparts,'c:\google.csv');  end;data.idsmtp.send(data.idmessage);data.idsmtp.disconnect;

Responder

Gostei + 0

16/04/2013

Jos�

Este t�pico esta sendo fechado por inatividade. Se necess�rio, sinalizar para que seja reaberto ou abrir um novo.

Responder

Gostei + 0