E-Mail com Delphi 2010

Delphi

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

Eduardo Marcolongo

Curtidas 0

Respostas

Eduardo Marcolongo

Eduardo Marcolongo

01/04/2011

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;

GOSTEI 0
José

José

01/04/2011

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0
POSTAR