LOCAL loOutlook AS Outlook.Application
LOCAL loNameSpace AS Outlook.NameSpace
LOCAL loMailItem AS Outlook.MailItem
LOCAL llShowItem AS Boolean
#DEFINE olMailItem 0
loOutlook = CREATEOBJECT('Outlook.Application')
loNameSpace = loOutlook.GetNamespace("MAPI")
loNameSpace.Logon
loMailItem = loOutlook.CreateItem( olMailItem ) && This creates the MailItem Object
xEmail = [yourEmailGoesHere]
WITH loMailItem
.Subject = "VFP E-mail Automation using Standard method"
.Recipients.Add(xEmail)
.Body = "This is the Main Text of the email"
.Send && Calling this will cause a Security Dialog
ENDWITH