Re: [delphi-br] Re: Enviar e-mail com imagem
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=#ff');
NMSMTP1.PostMessage.Body.Add('DIVFONT face=Arial size=2Verificar
o código fonte./FONT/DIV');
NMSMTP1.PostMessage.Body.Add('DIVFONT face=Arial
size=2/FONTnbsp;/DIV');
NMSMTP1.PostMessage.Body.Add('DIVIMG 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('htmlbodyh1test/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
Re: [delphi-br] Re: Enviar e-mail com imagem
olá tudo bem? se possivel, pode por favor me passar o fonte do delphi que envie email? sempre que procuro algo do genero o programa da erro de socket... muito obrigado! Ricardo Cabral [EMAIL PROTECTED] escreveu: 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 Kleiton B. Santos - 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
Re: [delphi-br] Re: Enviar e-mail com imagem
KLEITON ,
Tá enviando o e-mail, mas a imagem ainda não tá indo junto.
Espero que esse trecho do código possa ajudá-lo.
with IdMessage1 do
begin
Recipients.EMailAddresses:=ed_para.Text;
CCList.EMailAddresses:=ed_cc.Text;
BccList.EMailAddresses:=ed_cco.Text;
Subject:=ed_assunto.Text+DateToStr(now);
ContentType:='multipart/alternative';
ContentDisposition :='inline';
Encoding :=meMIME;
Body:=Memo_mensagem.Lines;
end;
// , trecho html
with TIdText.Create(IdMessage1.MessageParts) do
begin
ContentType:='text/html';
Body.Add('htmlbody');
Body.Add('paqui a imagem...img src=cid:image001.jpg//p');
Body.Add('phr/pbr'+Memo_mensagem.Text);
Body.Add('/body/html');
end;
with TIdAttachment.Create(IdMessage1.MessageParts, 'c:\promo\image001.jpg')
do
begin
ContentType:='image/jpeg';
ContentDisposition :='inline';
ExtraHeaders.Values['Content-ID:'] :='c:\promo\image001.jpg';
with TIdText.Create(IdMessage1.MessageParts) do
begin
Body.Add(Memo_mensagem.Text);
//ContentTransfer:='7bit';
ContentType:='textt/plain';
end;
for xanexo:=0 to ListBox1.Items.Count-1 do
TIdAttachment.Create(IdMessage1.MessageParts,
tfilename(ListBox1.Items.Strings[xanexo]));
Screen.Cursor:=crHourGlass;
IdSMTP1.Connect;
Try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
ffuncoes.msg_aviso('E-Mial enviado com sucesso !');
end;
Screen.Cursor:=crDefault;
KLEITON [EMAIL PROTECTED] escreveu:
olá tudo bem? se possivel, pode por favor me passar o fonte do delphi que
envie email? sempre que procuro algo do genero o programa da erro de socket...
muito obrigado!
Ricardo Cabral [EMAIL PROTECTED] escreveu:
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
Kleiton B. Santos
-
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]
Abraços,
Ricardo Cabral
-
Yahoo! Search
Música para ver e ouvir: You're Beautiful, do James Blunt
[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] 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 -- 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
