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