Email no Indy

Delphi

06/05/2008

[color=red:03478dffcd]Tópico bloqueado por Massuda Tópico duplicado. Por favor, mantenha a discussão no tópico original... :arrow: http://forum.devmedia.com.br/viewtopic.php?t=95023 Leia as :arrow: [url=http://forum.devmedia.com.br/viewtopic.php?t=6689]Regras de Conduta[/url][/color:03478dffcd]

Bom dia a todos, depois que atualizei o componente indy para a versão 10.0.20 não consigo mais enviar emails... Procurei pela internet e também aqui no forum e pelo que eu vi o código está certo mas mesmo assim o email não chega com anexo. Vou postar o código e se alguem puder me ajuda eu agradeço. Abraços.

      
if IBQuery3.FieldByName(´FL_ANEXAR_CORPO_EMAIL´).AsString = ´S´ then
      begin
        arquivo := trim(StringReplace(IBQuery3.FieldByName(´DS_ENDERECO_CHART´).AsString,´"´,´´,[rfReplaceAll]));
        if FileExists(arquivo) then
        begin
          IdMessage1.Encoding    := meMIME;
          IdMessage1.ContentType := ´multipart/alternative´;

          TIdAttachmentFile.create(IdMessage1.MessageParts,arquivo);

          TextoHtml := TIdText.Create(IdMessage1.MessageParts);
          TextoHtml.ContentType := ´text/html´;
          TextoHtml.Body.Add(´código html´);
        end;
      end;
      try
        IdSMTP1.Connect;
        IdSMTP1.Send(IdMessage1);
     except
     end



Douglass

Douglass

Curtidas 0
POSTAR