Envio Emails

Delphi

08/05/2008

Bom dia pessoal, uso Delphi 2005 e o componente Indy 10.0.20 num programa que envia e-mails com anexo etc. Eu utializava a versão 9 do Indy e ele enviava os e-mails com anexo corretamente, depois que atualizei para a versão 10 ele simplismente parou de anexar. Pelo que achei por ai a rotina está certa, o e-mail chega mas com nada anexo. Se algyém puder dar uma ajuda ou dica eu agradeceria muito. Segue o código:

      if IBQuery3.FieldByName(´FL_ANEXAR_CORPO_EMAIL´).AsString = ´S´ then
      begin
        IdMessage1.Encoding    := meMIME;
        IdMessage1.ContentType := ´multipart/alternative´;

        arquivo := trim(StringReplace(IBQuery3.FieldByName(´DS_ENDERECO_CHART´).AsString,´"´,´´,[rfReplaceAll]));

        TIdAttachmentFile.create(IdMessage1.MessageParts,arquivo);

        TextoHtml := TIdText.Create(IdMessage1.MessageParts);
        TextoHtml.ContentType := ´text/html´;
        TextoHtml.Body.Add(PageProducer1.Content);
      end;


Abraços.


Douglass

Douglass

Curtidas 0

Respostas

Luizito

Luizito

08/05/2008

Da uma olhada em : http://www.usercontrol.net/content/view/15/18/

Indy 10 com RAD Studio.

Abraço.


GOSTEI 0
POSTAR