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

Fri, 18 Aug 2006 09:55:12 -0700 

Estou agora com a seguinte situacao, com a funcao abaixo eu mando o e-mail
com anexos e visualizo a figura no cabecalho com o incredmail, mas nao no
outlook   
 
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="900" HEIGHT="150" >');
   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">Segue
relatorio em anexo de notas de importacao</FONT></STRONG></DIV>');
   NewText.Body.Add('<BR><BR>');
   NewText.Body.Add('<BR><BR>');
   NewText.Body.Add('<DIV><STRONG><FONT face="Times New Roman">Acao
Contabilidade & Consultoria</FONT></STRONG></DIV>');
   NewText.Body.Add('<DIV><STRONG><FONT face="Times New Roman">Rua Republica
do Peru, nr 16, Nova Betania</FONT></STRONG></DIV>');
   NewText.Body.Add('<DIV><STRONG><FONT face="Times New Roman">Mossoro RN 
CEP 59607-240</FONT></STRONG></DIV>');
   NewText.Body.Add('<DIV><STRONG><FONT face="Times New Roman">Fone: 0xx84
3317 4688</FONT></STRONG></DIV>');
   NewText.Body.Add('<DIV><STRONG><FONT face="Times New Roman">Funcionario: 
+editde.Text+'</FONT></STRONG></DIV>');
   NewText.Body.Add('<DIV><STRONG><FONT face="Times New Roman">Setor : 
+FSenha001.XSetor+'</FONT></STRONG></DIV>');
   NewText.Body.Add('<DIV><STRONG><FONT face="Times New Roman">Data / Hora
de envio :'+DateToStr(date)+' as '+TimeToStr(time)+'</FONT></STRONG></DIV>')

   NewText.Body.Add('<H2> Rotinas Automaticas </H2>');
   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'; 
 
Ja com essa funcao eu visualizo a imagem no outlook mas nao da certo qdo
mando algum anexo
  
Msg.Clear;
  Msg.Body.Clear;
  Msg.ContentType:='text/HTML;
  Msg.Body.Add('<HTML><BODY>');
  Msg.Body.Add('<img src="http://www.acaocontabilidade.com.BR/acao3.JPG";
ALIGN="LEFT" WIDTH="800" HEIGHT="130">');
  Msg.Body.Add('<DIV> <DIV>');
  Msg.Body.Add('<BR><BR>');
  For x := 0 to memomensagem.Lines.Count do msg.Body.Add('<DIV><STRONG><FONT
face="Times New Roman">'+memomensagem.Lines[x]+'</FONT></STRONG></DIV>');
  Msg.Body.Add('<BR><BR>');
  For xAnexo := 0 to ListBoxanexos.Items.Count -1 do
   Tidattachment.Create(msg.MessageParts , Tfilename(listboxanexos.Items
Strings [xanexo]));

Alguem da lista ja conseguiu resolver isso
 
 

[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

Responder a