Enviar email pelo delphi.
23/03/2003
0
Gostaria de sabre como faço para enviar um email utilizando a conta de email padrão do outlook pelo delphi.
Henry Lima
Curtir tópico
+ 0
Responder
Posts
23/03/2003
Carnette
[quote:b8825de057=´Henry Lima´]Gostaria de sabre como faço para enviar um email utilizando a conta de email padrão do outlook pelo delphi.[/quote:b8825de057]
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;
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)