Anexando arquivos no outlook
Fiz uma pesquisa no forum, e descobri que minha duvida é a duvida de muita gente, ....., Será que alguém já descobriu como se faz para anexar um arquivo no Outlook usando um sistema em Delphi ????
Vi em várias mensagens uma rotina que chama somente o outlook 2000 e se colocar para chamar o Outlook Express da erro, ...., todos os clientes aqui da empresa usam o Express ....
Se alguem tiver alguma novidade, por favor ....
Falou
Abraço ......
Vi em várias mensagens uma rotina que chama somente o outlook 2000 e se colocar para chamar o Outlook Express da erro, ...., todos os clientes aqui da empresa usam o Express ....
Se alguem tiver alguma novidade, por favor ....
Falou
Abraço ......
Arc
Curtidas 0
Respostas
Nigro
08/01/2004
const olMailItem = 0;
var
Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook:=GetActiveOleObject(´Outlook.Application´);
except
Outlook:=CreateOleObject(´Outlook.Application´);
end;
MailItem := Outlook.CreateItem(olMailItem);
with MailItem do begin
Recipients.Add(´email@email.com´);
Subject := ´Assunto´;
Body := ´corpo da mensagem´;
Attachments.Add(´C:\Windows\Win.ini´);
Send;
end;
Outlook := Unassigned;
end;
var
Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook:=GetActiveOleObject(´Outlook.Application´);
except
Outlook:=CreateOleObject(´Outlook.Application´);
end;
MailItem := Outlook.CreateItem(olMailItem);
with MailItem do begin
Recipients.Add(´email@email.com´);
Subject := ´Assunto´;
Body := ´corpo da mensagem´;
Attachments.Add(´C:\Windows\Win.ini´);
Send;
end;
Outlook := Unassigned;
end;
GOSTEI 0