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('<html><body>');
Body.Add('<p>aqui a imagem...<img src="cid:image001.jpg"/></p>');
Body.Add('<p><hr></p><br>'+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
