outlook imagem no corpo do email(inserir -gt; imagem)
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;
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
Curtidas 0
Respostas

Angela
04/01/2005
sobe
GOSTEI 0

Angela
04/01/2005
sobe
GOSTEI 0

Angela
04/01/2005
sobe
GOSTEI 0

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
04/01/2005
Obrigada pela dica Adilson
Vou testar
Vou testar
GOSTEI 0

Rennan Castanheira
04/01/2005
deu certo ?
GOSTEI 0