Delphi Source Code
Search engine
HOME Components Tutorials Add Trick Links Contacts
ActiveX Components Database Files Forms Graphic Internet/Lan Math Miscellaneous Multimedia Printing Strings System Information Windows

Delphi source code for ActiveX >> Send an e-mail through Outlook

Category: ActiveX
Title: Send an e-mail through Outlook
Date added: 15.03.2006
Hits: 16736


procedure TForm1.Button16Click(Sender: TObject);
  olMailItem = 0;
  olByValue = 1;
  OutlookApp, MailItem, MyAttachments: OLEVariant;
    OutlookApp := GetActiveOleObject('Outlook.Application');
    OutlookApp := CreateOleObject('Outlook.Application');
    MailItem := OutlookApp.CreateItem(olMailItem);
    MailItem.Subject := 'Your Subject';
    MailItem.Body    := 'Your Message';
    myAttachments    := MailItem.Attachments;
    myAttachments.Add('C:\text.txt', olByValue, 1, 'Name of Attachment');
    myAttachments := VarNull;
    OutlookApp    := VarNull;

Related Delphi Source Code:
Delphi Tricks
Delphi Tricks
For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail:
If you want to advertise on the site use that e-mail:

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.

Copyright © 2006-2010 AVSoftware Company. All rights reserved.
Hide IP tricks