OLEObject ole_outlook
integer li_return

ole_outlook = Create OLEObject
//Connect to Outlook session using 'Outlook.Application'
li_return = ole_outlook.ConnectToNewObject("outlook.application")
//Check for the return code
If li_return <> 0 Then
  Messagebox("Error", string(li_return))
  Destroy ole_outlook
  Return
Else
  MessageBox("Success", "Connected")
End If

OLEObject ole_item, ole_attach
//Creates a new mail Item
ole_item = ole_outlook.CreateItem(0)

//Set the subject line of message
ole_item.Subject = "Mon sujet"

//Body of mail message
ole_item.Body = "Mon corps de message"

//Recipient(s) Use a semicolon to separate multiple recipients
ole_item.To = "monadresse@destination.be"
ole_item.Cc = "monadresseencopie@copycarbon.be"

//Attachments
ole_attach = ole_item.Attachments
ole_attach.add(fileLocation)

ole_item.Display //displays the message
ole_item.Send //sends the message, return a boolean

destroy ole_outlook