Sending an email from Delphi with Outlook (Views: 708)
Problem/Question/Abstract: Sending an email from Delphi with Outlook Answer: Outlook can be easily controlled through OLE. Try the sample procedure SendOutlookMail() from below. This does not work with Outlook Express. 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; end. |