.NET (2)
Database (71)
Delphi IDE (90)
Network (39)
Printing (3)
Strings (12)
VCL (83)
Windows with Delphi (280)
Exchange Links
About this site
| |
 |
Sending an email from Delphi with Outlook
This article has not been rated yet. After reading, feel free to leave comments and rate it.
Outlook can be easily controlled through OLE. Try the sample procedure SendOutlookMail() from below.
This does not work with Outlook Express - you can find more information on Outlook OLE automation at
http://www.djpate.freeserve.co.uk/AutoOutl.htm.
 |  | |
program MailWithOutlook;
procedure SendOutlookMail;
const
olMailItem = 0;
var
Outlook: OleVariant;
vMailItem: variant;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
vMailItem := Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add('dummy@hotmail.com');
vMailItem.Subject := 'test email';
vMailItem.Body := 'This is a test';
vMailItem.Attachments.Add('C:\temp\sample.txt');
vMailItem.Send;
VarClear(Outlook);
end;
begin
end. | ||
 |  |
Comments:
| ||
|
how to write OnSaveAs event handler? I need capture the full path of filename that user save to disk. thanks
atc, Luiz Gustavo. lugbestrio@yahoo.com |
