>loWSH = CreateObject( "WScript.Shell" ) >loEmailitem.Display() >loWSH.AppActivate( loEmailItem.Application.ActiveInspector.Caption ) >>
>>#DEFINE olFolderInbox 6 >>#DEFINE olFolderOutbox 4 >>#DEFINE olMailItem 0 >>#DEFINE olRecipient 4 >>#DEFINE olRecipients 17 >>#DEFINE IMPORTANCENORMAL 1 >>loApp=CreateObject("Outlook.Application") >>loNamespace = loApp.GetNamespace("MAPI") >>loFolder = loNamespace.GetDefaultFolder(olFolderInbox) >>loEMailItem = loFolder.Items.Add(olMailItem) >>loEmailItem.Subject = "Test VFP - Outlook" >>loEmailItem.Recipients.Add('emailadress@someplace.com') && uses the Recipients collection >>loEmailItem.Importance = IMPORTANCENORMAL >>loEmailItem.HTMLBody = "Body" >>loemailitem.Display() >>*loEmailItem.Send >>*loApp.Quit() >>release loApp, loEmailItem >>>>