Re: [delphi-br] Enviar e-mail com imagem no cabecalho

Thu, 17 Aug 2006 04:37:16 -0700 

Olá...
Acredito que a imagem não seja anexada à mensagem. Não sei se é isso.
Eu costumo usar o seguinte:
Uso o endereço de uma imagem que está disponível no meu servidor WEB. Ai 
funciona.

Memo1.Lines.Add('<center><img src="http://www.site.com.br/imagem.jpg"; 
border=0></img></center>');

NMSMTP1.PostMessage.Body.Text := Memo1.Text;

Não sei se isso ajuda.

Aparecido



----- Original Message ----- 
From: "Francisco Carlos Andrade" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, August 16, 2006 2:41 PM
Subject: [delphi-br] Enviar e-mail com imagem no cabecalho


Ola pessoal, eu estou tendo uma dificuldade enorme, para enviar mensagens
com uma figura no cabecalho para ser visualizado pelo outlook, com a rotina
abaixo eu verifico que no programa incredimail ela esta de acordo com o que
eu quero, mas qdo tentei visualizar a mensagem pelo outlook ao inves de
aparecer a figura aparece apena um quadro em branco alguem poderia me dizer
o que pode estar acontecendo

Msg.clear;
Msg.Body.Clear;
 // Texto HTML
NewText := TIdText.Create(msg.MessageParts);
NewText.ContentType:='Text/Html';
NewText.Body.Add('<HTML><BODY>');
NewText.Body.Add('<IMG SRC="acao31.jpg"  NAME="acao31.jpg" ALIGN="LEFT"
WIDTH="800" HEIGHT="130" >');
NewText.Body.Add('<DIV> <DIV>');
NewText.Body.Add('<DIV> <DIV>');
NewText.Body.Add('<BR><BR>');
NewText.Body.Add('<BR><BR>');
NewText.Body.Add('<BR><BR>');
NewText.Body.Add('<BR><BR>');
NewText.Body.Add('<DIV><STRONG><FONT face="Times New Roman">Linha
1</FONT></STRONG></DIV>');
NewText.Body.Add('<DIV><STRONG><FONT face="Times New Roman">Linha
2</FONT></STRONG></DIV>');
NewText.Body.Add('<BR><BR>');
NewText.Body.Add('<BR><BR>');
NewText.Body.Add('<A HREF="http://www.acaocontabilidade.com.br
>acaocontabilidade</A>');
NewText.Body.Add('</BODY><HTML>');
// Anexa a imagem ao corpo do email
NewText := TIdText.Create(msg.MessageParts);
NewText.ContentType := 'text/plain';
NewAttach := TIdAttachment.Create(msg.MessageParts,'c:\acaodph\acao3.jpg');
NewAttach.ExtraHeaders.Values['Content-ID'] := 'imagemfundo'; //'acao3.jpg';
msg.From.Text := editemail.Text; // e-mail de origem
Editassunto.Text:='Assunto';
Msg.Subject:= editassunto.Text; // assunto do e-mail
Editdestino.Text :='e-mail [EMAIL PROTECTED]';
Msg.Recipients.EMailAddresses := editdestino.Text; //e-mail destinatário
Idsmtp1.Host := 'smtp.'+ editprovedor.Text + '.com.br';// seu provedor ex:
terra
Idsmtp1.Port := 25; //porta padrão para o envio de e-mail (SMTP) - Não mudar
Idsmtp1.Username := editusername.Text;// Seu username
Idsmtp1.Password := editsenha.Text;//Sua senha
Msg.Priority := mpHigh;
 idsmtp1.Connect;
 try
 idsmtp1.Send(msg);
 finally
 idsmtp1.Disconnect;
 end;




-------------------------------------------------------------------------
Francisco Carlos de Andrade
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]

[As partes desta mensagem que não continham texto foram removidas]






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos








-- 
<<<<< 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

Responder a