Estas 2 dicas peguei na lista, mas nunca testei.
1-
enviar o e-mail com uma imagem .GIF
NMSMTP1.PostMessage.Body.Clear;
NMSMTP1.PostMessage.Body.Add('<META content="MSHTML 6.00.2800.1458"
name=GENERATOR>');
NMSMTP1.PostMessage.Body.Add('<STYLE></STYLE>');
NMSMTP1.PostMessage.Body.Add('</HEAD>');
NMSMTP1.PostMessage.Body.Add('<BODY bgColor=#ffffff>');
NMSMTP1.PostMessage.Body.Add('<DIV><FONT face=Arial size=2>Verificar
o código fonte.</FONT></DIV>');
NMSMTP1.PostMessage.Body.Add('<DIV><FONT face=Arial
size=2></FONT> </DIV>');
NMSMTP1.PostMessage.Body.Add('<DIV><IMG alt="" hspace=0
src="C:\tagai.gif" align=baseline border=0></DIV>');
// Corpo do email
NMSMTP1.SendMail; // Envia o email
Anexe a Imagem, Attachments.Add('c:\tagai.gif');
e coloque sem o "C:\" src="tagai.gif"
NMSMTP.PostMessage.Attachments.add('C:\sua_image.gif');
**************************************
2-
var
idAttach: TidAttachment;
IdHtml, idText: TidText;
p: TidMessageParts;
slBody: TStringList;
begin
p := IdMessage1.MessageParts;
slBody := TStringList.Create;
idText := TidText.Create(p);
idText.ContentType := 'text/plain';
idText.Body.Text := 'Aqui vai o texto sem formatação';
slBody.add('<html><body><h1>test</h1></body></html>');
IdHtml := TidText.Create(p, slBody);
IdHtml.ContentType := 'text/html';
IdMessage1.Body.Assign(slBody);
//...
Espero ter ajudado.
----- Original Message -----
From: Ricardo Cabral
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, September 21, 2006 6:51 PM
Subject: [delphi-br] Re: Enviar e-mail com imagem
Caro Alvaro,
Se você pudesse, gostaria que me desse uma ajudar para eu fazer a
mesma coisa que você.
Valeu !
--- Em delphi-br@yahoogrupos.com.br, "Alvaro Augusto" <[EMAIL PROTECTED]>
escreveu
>
> Caro Ricardo,
>
> Tive que fazer isso uma vez e achei muito complicado pelo tempo
que eu tinha
> disponível. Achei melhor deixar a imagem em um servidor web e
enviar só um
> e-mail HTML com um tag para a imagem. Funciona para a maior parte
dos
> usuários, mas alguns que usam webmail podem ter problemas.
>
> [ ]s
>
> Alvaro Augusto
> http://alvaug.multiply.com
>
>
> ----- Original Message -----
> From: "Ricardo Cabral" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Wednesday, September 20, 2006 3:31 PM
> Subject: [delphi-br] Enviar e-mail com imagem
>
>
> Olá pessoal !
>
> Preciso da ajuda de vocês.
>
> Fiz uma rotinha para enviar e-mail usando o Indy. Até aí legal. O
que
> preciso fazer agora é mandar no corpo da mensagem uma imagem junto
com
> o texto. Não é anexada.
>
> Eu estava usando um memo para o usuário digitar a mensagem e depois
> pensei em usar o RichEdit.
>
> Existe alguma maneira/componente para juntar texto e imagem e dessa
> forma enviar via e-mail ?
>
> Desde de já agradeço!
>
> Ricardo Cabral
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
