Fórum Anexando arquivos no outlook #205112
08/01/2004
0
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
Curtir tópico
+ 0
Responder
Posts
08/01/2004
Nigro
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)