Fórum outlook imagem no corpo do email(inserir -gt; imagem) #264174

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

Curtir tópico

+ 0

Responder

Posts

04/01/2005

Angela

sobe

Responder

Gostei + 0

04/01/2005

Angela

sobe

Responder

Gostei + 0

04/01/2005

Angela

sobe

Responder

Gostei + 0

05/01/2005

Adilsond

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.

Responder

Gostei + 0

05/01/2005

Angela

Obrigada pela dica Adilson

Vou testar

Responder

Gostei + 0

21/11/2018

Rennan Castanheira

deu certo ?

Responder

Gostei + 0