outlook imagem no corpo do email(inserir -gt; imagem)

Delphi

04/01/2005

Pessoal,

Gostaria de mandar emails pelo outlook com a imagem no corpo do email

e não colocando o caminho de um servidor. e nem anexando.

Já faz um tempo q procuro como fazer isso e não achei.

Igual ao Outlook quando vamos em inserir -> imagem

Estava precisando enviar emails com as figuras dessa maneira.

Alguém tem uma dica?

Segue o código q estou usando:

uses
Windows, ComObj, ActiveX;

const
olMailItem = 0;

var
Outlook, NmSpace, Folder: OleVariant;
miMail: Variant;

begin
Outlook := CreateOleObject(´Outlook.Application´);

miMail := Outlook.CreateItem(olMailItem);
miMail.Recipients.Add(´user@server.com´);
miMail.Subject := ´OI´;

// use this to send a plain text email (all versions of Outlook)
miMail.Body := ´Mensagem Plain Text.´;

// alternatively send an HTML email (not in Outlook 97)
miMail.HTMLBody := ´<font color=red>Mensagem HTML.</font>´;

miMail.Attachments.Add(´C:\list.txt´, EmptyParam, EmptyParam, EmptyParam);
miMail.Send;

end;


Angela

Angela

Curtidas 0

Respostas

Angela

Angela

04/01/2005

sobe


GOSTEI 0
Angela

Angela

04/01/2005

sobe


GOSTEI 0
Angela

Angela

04/01/2005

sobe


GOSTEI 0
Adilsond

Adilsond

04/01/2005

Abra o Outlook, crie uma nova mensagem, Faça um EMail como voce gostaria que o mesmo ficasse (com a inclusão da imagem). Clique em Exibir -> Editar Código fonte e na pasta origem verifique como fica o código html para a mensagem.


GOSTEI 0
Angela

Angela

04/01/2005

Obrigada pela dica Adilson

Vou testar


GOSTEI 0
Rennan Castanheira

Rennan Castanheira

04/01/2005

deu certo ?
GOSTEI 0
POSTAR