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

2006-09-21 Por tôpico Ricardo Cabral 
Alvaro Augusto,
   
  Em primeiro lugar, agradeço a ajuda.
   
  Eu também pensei na solução de enviar a imagem num tag html. Estou 
pesquisando para saber como posso fazer isso.
   
  Aceito ajuda! 
   
   
  Valeu!
   
  
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












 


Abraços,

   Ricardo Cabral

-
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. 
Registre seu aparelho agora!

[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

[delphi-br] Enviar e-mail com imagem

2006-09-20 Por tôpico Ricardo Cabral 
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 

* 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

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

2006-09-20 Por tôpico Alvaro Augusto 
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














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

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

2006-08-18 Por tôpico Francisco Carlos Andrade 
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('HTMLBODY');
   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('BRBR');
   NewText.Body.Add('BRBR');
   NewText.Body.Add('BRBR');
   NewText.Body.Add('BRBR');
   NewText.Body.Add('DIVSTRONGFONT face=Times New RomanSegue
relatorio em anexo de notas de importacao/FONT/STRONG/DIV');
   NewText.Body.Add('BRBR');
   NewText.Body.Add('BRBR');
   NewText.Body.Add('DIVSTRONGFONT face=Times New RomanAcao
Contabilidade  Consultoria/FONT/STRONG/DIV');
   NewText.Body.Add('DIVSTRONGFONT face=Times New RomanRua Republica
do Peru, nr 16, Nova Betania/FONT/STRONG/DIV');
   NewText.Body.Add('DIVSTRONGFONT face=Times New RomanMossoro RN 
CEP 59607-240/FONT/STRONG/DIV');
   NewText.Body.Add('DIVSTRONGFONT face=Times New RomanFone: 0xx84
3317 4688/FONT/STRONG/DIV');
   NewText.Body.Add('DIVSTRONGFONT face=Times New RomanFuncionario: 
+editde.Text+'/FONT/STRONG/DIV');
   NewText.Body.Add('DIVSTRONGFONT face=Times New RomanSetor : 
+FSenha001.XSetor+'/FONT/STRONG/DIV');
   NewText.Body.Add('DIVSTRONGFONT face=Times New RomanData / Hora
de envio :'+DateToStr(date)+' as '+TimeToStr(time)+'/FONT/STRONG/DIV')

   NewText.Body.Add('H2 Rotinas Automaticas /H2');
   NewText.Body.Add('BRBR');
   NewText.Body.Add('A HREF=http://www.acaocontabilidade.com.BR
acaocontabilidade/A');
   NewText.Body.Add('/BODYHTML');
// 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('HTMLBODY');
  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('BRBR');
  For x := 0 to memomensagem.Lines.Count do msg.Body.Add('DIVSTRONGFONT
face=Times New Roman'+memomensagem.Lines[x]+'/FONT/STRONG/DIV');
  Msg.Body.Add('BRBR');
  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

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

2006-08-17 Por tôpico Cido 
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('centerimg 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('HTMLBODY');
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('BRBR');
NewText.Body.Add('BRBR');
NewText.Body.Add('BRBR');
NewText.Body.Add('BRBR');
NewText.Body.Add('DIVSTRONGFONT face=Times New RomanLinha
1/FONT/STRONG/DIV');
NewText.Body.Add('DIVSTRONGFONT face=Times New RomanLinha
2/FONT/STRONG/DIV');
NewText.Body.Add('BRBR');
NewText.Body.Add('BRBR');
NewText.Body.Add('A HREF=http://www.acaocontabilidade.com.br
acaocontabilidade/A');
NewText.Body.Add('/BODYHTML');
// 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

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

2006-08-16 Por tôpico Francisco Carlos Andrade 
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('HTMLBODY');
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('BRBR');
NewText.Body.Add('BRBR');
NewText.Body.Add('BRBR');
NewText.Body.Add('BRBR');
NewText.Body.Add('DIVSTRONGFONT face=Times New RomanLinha
1/FONT/STRONG/DIV');
NewText.Body.Add('DIVSTRONGFONT face=Times New RomanLinha
2/FONT/STRONG/DIV');
NewText.Body.Add('BRBR');
NewText.Body.Add('BRBR');
NewText.Body.Add('A HREF=http://www.acaocontabilidade.com.br
acaocontabilidade/A');
NewText.Body.Add('/BODYHTML');
// 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