Fórum Email no Indy #358044
06/05/2008
0
[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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)