Colocar URL de uma imagem ao enviar email
26/08/2019
0
Boa tarde.
fiz essa rotina simples para enviar email pelo dephi xe10 berllin
funciona perfeitamente, porém gostaria de ao invez de colocar o endereço local da imagem , ela buscar de uma url
segue meu codigo
cContato := ''''''''Luiz arlosr'''''''';
cImagem := ''''''''C:\\\\\\\\\\\\\\\\Sistemas\\\\\\\\\\\\\\\\imagem\\\\\\\\\\\\\\\\teste.jpg'''''''';
email := TIdMessage.Create(nil);
smtp := TIdSMTP.Create(nil);
try
email.From.Name := ''''''''nilton cesar'''''''';
email.From.Address := ''''''''teste@teste.com.br'''''''';
email.Recipients.EMailAddresses := ''''''''teste@testando.com.br'''''''';
email.Priority := mpHighest;
email.Subject := ''''''''Teste'''''''';
smtp.Host := ''''''''smtp.gmail.com'''''''';
smtp.Username := ''''''''teste.apoio@gmail.com'''''''';
smtp.Password := ''''''''x1015@teste'''''''';
smtp.Host := ''''''''smtp.gmail.com'''''''';
smtp.Username := ''''''''deste.apoio@gmail.com'''''''';
smtp.Password := ''''''''x1015@teste'''''''';
autent_ssl := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
smtp.IOHandler := autent_ssl;
smtp.Port := 587;
autent_ssl.SSLOptions.Method := sslvSSLv3;
autent_ssl.SSLOptions.Mode := sslmClient;
smtp.UseTLS := utUseExplicitTLS;
smtp.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
smtp.AuthType := satDefault;
//define o tipo de conteudo da mensagem
email.ContentType := ''''''''multipart/mixed'''''''';
//cria a parte texto em html
text := TIdText.Create(email.MessageParts);
text.ContentType := ''''''''text/html'''''''';
text.ContentTransfer:=''''''''base64'''''''';
text.Body.Add(''''''''<HTML><BODY>'''''''');
text.Body.Add(''''''''<H2>ILUMAC</H2>''''''''+cContato);
text.Body.Add(''''''''<BR><BR>'''''''');
text.Body.Add(''''''''<img>Linha Endereçaveis<img>'''''''');
text.Body.Add(''''''''<BR><BR>'''''''');
text.Body.Add(''''''''<img style="margin:1px 1px 1px 0px;"'''''''');
text.Body.Add(''''''''<IMG SRC="cid:teste.jpg">'''''''');
text.Body.Add(''''''''</BODY><HTML>'''''''');
//anexa as imagens que vai no email
text := TIdText.Create(email.MessageParts);
text.ContentType := ''''''''text/plain'''''''';
anexo := TIdAttachmentFile.Create(email.MessageParts,cImagem);
anexo.ExtraHeaders.Values[''''''''content-ID''''''''] := ''''''''teste.jpg'''''''';
//envia o email
smtp.UseEhlo := true;
smtp.UseVerp := false;
smtp.ReadTimeout := 10000;
smtp.Connect;
Sleep(1000);
smtp.Authenticate;
Sleep(1000);
try
if smtp.Connected then
smtp.Send(email)
else
begin
ShowMessage(''''''''Mensagem nao pode ser enviada'''''''');
Exit;
end;
except
smtp.Disconnect;
smtp.Host := ''''''''teste@testando.com.br'''''''';
smtp.AuthType := satNone;
smtp.Connect;
try
smtp.Send(email);
except
begin
ShowMessage(''''''''Nao pode enviar o email para nILTON, verifique as configuracoes da conta'''''''');
end;
end;
smtp.Disconnect;
end;
smtp.Disconnect;
fiz essa rotina simples para enviar email pelo dephi xe10 berllin
funciona perfeitamente, porém gostaria de ao invez de colocar o endereço local da imagem , ela buscar de uma url
segue meu codigo
cContato := ''''''''Luiz arlosr'''''''';
cImagem := ''''''''C:\\\\\\\\\\\\\\\\Sistemas\\\\\\\\\\\\\\\\imagem\\\\\\\\\\\\\\\\teste.jpg'''''''';
email := TIdMessage.Create(nil);
smtp := TIdSMTP.Create(nil);
try
email.From.Name := ''''''''nilton cesar'''''''';
email.From.Address := ''''''''teste@teste.com.br'''''''';
email.Recipients.EMailAddresses := ''''''''teste@testando.com.br'''''''';
email.Priority := mpHighest;
email.Subject := ''''''''Teste'''''''';
smtp.Host := ''''''''smtp.gmail.com'''''''';
smtp.Username := ''''''''teste.apoio@gmail.com'''''''';
smtp.Password := ''''''''x1015@teste'''''''';
smtp.Host := ''''''''smtp.gmail.com'''''''';
smtp.Username := ''''''''deste.apoio@gmail.com'''''''';
smtp.Password := ''''''''x1015@teste'''''''';
autent_ssl := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
smtp.IOHandler := autent_ssl;
smtp.Port := 587;
autent_ssl.SSLOptions.Method := sslvSSLv3;
autent_ssl.SSLOptions.Mode := sslmClient;
smtp.UseTLS := utUseExplicitTLS;
smtp.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
smtp.AuthType := satDefault;
//define o tipo de conteudo da mensagem
email.ContentType := ''''''''multipart/mixed'''''''';
//cria a parte texto em html
text := TIdText.Create(email.MessageParts);
text.ContentType := ''''''''text/html'''''''';
text.ContentTransfer:=''''''''base64'''''''';
text.Body.Add(''''''''<HTML><BODY>'''''''');
text.Body.Add(''''''''<H2>ILUMAC</H2>''''''''+cContato);
text.Body.Add(''''''''<BR><BR>'''''''');
text.Body.Add(''''''''<img>Linha Endereçaveis<img>'''''''');
text.Body.Add(''''''''<BR><BR>'''''''');
text.Body.Add(''''''''<img style="margin:1px 1px 1px 0px;"'''''''');
text.Body.Add(''''''''<IMG SRC="cid:teste.jpg">'''''''');
text.Body.Add(''''''''</BODY><HTML>'''''''');
//anexa as imagens que vai no email
text := TIdText.Create(email.MessageParts);
text.ContentType := ''''''''text/plain'''''''';
anexo := TIdAttachmentFile.Create(email.MessageParts,cImagem);
anexo.ExtraHeaders.Values[''''''''content-ID''''''''] := ''''''''teste.jpg'''''''';
//envia o email
smtp.UseEhlo := true;
smtp.UseVerp := false;
smtp.ReadTimeout := 10000;
smtp.Connect;
Sleep(1000);
smtp.Authenticate;
Sleep(1000);
try
if smtp.Connected then
smtp.Send(email)
else
begin
ShowMessage(''''''''Mensagem nao pode ser enviada'''''''');
Exit;
end;
except
smtp.Disconnect;
smtp.Host := ''''''''teste@testando.com.br'''''''';
smtp.AuthType := satNone;
smtp.Connect;
try
smtp.Send(email);
except
begin
ShowMessage(''''''''Nao pode enviar o email para nILTON, verifique as configuracoes da conta'''''''');
end;
end;
smtp.Disconnect;
end;
smtp.Disconnect;
Nilton Cesar
Curtir tópico
+ 0
Responder
Post mais votado
27/08/2019
OI Kamila...ja resolvi, esta tudo certo, muito obrigado
Nilton Cesar
Responder
Mais Posts
27/08/2019
Kamila Gomes
Olá! Você quer pegar uma imagem externa? Por exemplo, de um site... Ou vc que só passar o caminho da imagem (seja na rede ou outro local) ?
Responder
28/08/2019
Kamila Gomes
Que bom!! :) Depois posta a solução aqui, pode ajudar alguém tbm! Abraços!
Responder
Clique aqui para fazer login e interagir na Comunidade :)
