cRecipient = "someone@somewhere.com"
cSubject = "This is the subject"
cMsgText = "This is the body"
oForm = CREATEOBJECT("Form")
WITH oForm
.AddObject("Session1", "OleControl", "MSMAPI.MAPISession")
.AddObject("Message1", "OleControl", "MSMAPI.MAPIMessages")
WITH .Message1
.MsgIndex = -1
.RecipDisplayName = cRecipient
.MsgSubject = cSubject
.MsgNoteText = cMsgText
.SessionId = oForm.Session1.SessionId
.Send()
ENDWITH
.Session1.SignOff()
ENDWITH