Seven Library

Conteúdo atual do site:
[807] ítens, entre artigos, funções e documentos.
Pesquisa Rápida:

Pesquisa Avançada
Últimos 3 acessos:
Alexandre Neves 03/03/2015 11:08:01 167 acesso(s) alexandre neves 03/03/2015 11:06:42 1 acesso(s) Marcelo Torres 21/01/2015 15:24:53 61 acesso(s)

Opções:
Listagem completa Listagem simples

Ranking Colaboradores:

Adenilton Rodrigues - [304] Alexandre Neves - [61] Douglas Freire - [54] Marcelo Giovanni - [53] Marcelo Torres - [43] Angelita Bernardes - [31] Addy Magalhães Cunha - [28] Manuel Fraguas - [24] Ludmila Valadares - [20] Marcelo Capelo - [18]

:: Programação / Delphi

Enviando email com Imagens embutidas no corpo

Veja a técnica do envio de Webnews (emails com imagens embutidas no corpo em padrão HTML) usando os componentes do Indy do Delphi.

//==================================================== // Gera uma String unica baseada no relogio do windows //==================================================== Function CreateUniqueID(HexMode:Boolean=True):String; Var A : Int64; Begin a := Trunc(Now*100000000); If HexMode Then Result := IntToHex(a,14) Else Result := IntToStr(a); Sleep(50); End; procedure TForm1.Button1Click(Sender: TObject); Var newText : TIdText; sPath : String; newAttach : TIdAttachment; imgID1, imgName1 : String; imgID2, imgName2 : String; begin // Endereço e ID das Imagens imgName1 := 'c:\\mail\\imagem1.jpg'; imgID1 := CreateUniqueID; imgName2 := 'c:\\mail\\imagem2.jpg'; imgID2 := CreateUniqueID; // Configura o Servidor IdSMTP.Username := 'seu_login'; IdSMTP.Password := 'sua_senha'; IdSMTP.Host := 'seu_servidor_smtp'; // Configura o Remetente da Mensagem IdMessage.Clear; IdMessage.Subject := 'Teste de Envio de Mensagem'; IdMessage.From.Address := 'remetente@teste.com.br'; IdMessage.From.Name := 'Adenilton Rodrigues'; IdMessage.Subject := 'My Subject'; // configura os destinatários IdMessage.Recipients.Clear; IdMessage.Recipients.Add; IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Address := 'destinatario1@teste.com.br'; IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Name := 'Adenilton Rodrigues'; IdMessage.Recipients.Add; IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Address := 'destinatario2@teste.com.br'; IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Name := 'Adenilton Rodrigues'; // Adiciona o HTML ao corpo da mensagem newText := TIdText.Create(IdMessage.MessageParts,nil); newText.ContentType := 'text/html'; newText.Body.Add('<HTML><BODY>'); newText.Body.Add('<H2>Teste de Envio de Email HTML Embeded</H2>'); newText.Body.Add('<IMG SRC="cid:'+imgID1+'">'); // Troca imagens pelo ID unico newText.Body.Add('<IMG SRC="cid:'+imgID2+'">'); // Troca imagens pelo ID unico newText.Body.Add('</BODY><HTML>'); // Adiciona uma parte texto ao corpo newText := TIdText.Create(IdMessage.MessageParts,nil); newText.ContentType := 'text/plain'; newText.Body.Add('Este email só será visualizado em padrão HTML'); // Anexa a primeira imagem newAttach := TIdAttachment.Create(IdMessage.MessageParts,imgName1); newAttach.ContentType := 'image/jpeg'; newAttach.ContentDisposition := 'inline'; newAttach.ExtraHeaders.Values['Content-ID'] := '<'+imgId1+'>'; // Anexa a segunda imagem newAttach := TIdAttachment.Create(IdMessage.MessageParts,imgName2); newAttach.ContentType := 'image/jpeg'; newAttach.ContentDisposition := 'inline'; newAttach.ExtraHeaders.Values['Content-ID'] := '<'+imgId2+'>'; // Envia IdSMTP.Connect; Try if IdSMTP.Connected then Begin IdSMTP.Send(IdMessage); End Finally IdSMTP.Disconnect; End; end; Basicamente a técnica consiste em trocar os nomes das imagens no corpo do HTML (IMG SRC) por um identificador único, usando e anexar essas imagens referenciando-as ao seus respectivos identificadores. Veja que foram usadas duas variaveis string para comportar os nomes das imagens e seus IDs. A solução ideal é: 1. Ler o arquivo html diretamente do disco (loadfromfile) 2. Executar uma varredura e trocar todos os IMG SRC por um ID unico. 3. Anexar as imagens ao corpo do email. 4. Enviar.

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: Delphi;
Data.........: 24/06/2002 12:51:36
Visualizado..: 3978 vezes
Fonte........: AdeN Knowledge DB

Adenilton Rodrigues	Delphi
Últimos Artigos deste colaborador Aplicação Intraweb com Main Menu e Frames - 16/05/2005 20:37:49 SQL em tabelas com Join em Access - 24/01/2005 21:06:59 Descarregando DLL's ISAPI/ACTIVEX/INTRAWEB - 10/12/2004 22:52:37	Últimos Artigos desta categoria Usando a função MessageBox - 16/06/2006 15:47:15 Atualização de Sistemas - 06/10/2005 01:07:16 CRÍTICA DE DATAS NO OBJETO EDIT SEM MENSAGEM DE ERRO DO DELPHI - 17/03/2006 14:58:31

23 pessoa(s) on-line neste site.