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@monboulot.fr"
ole_item.Cc = "monadresseencopie@monboulot.fr"
ole_item.Bcc = "monadressecachee@monboulot.fr"

//Attachments
ole_attach = ole_item.Attachments
ole_attach.add("C:\mon_chemin_avec_des_blancs_ça_marche_aussi\ma_piece_jointe.monformat") // à répéter autant de fois que vous avez de pièces jointes

ole_item.Display //displays the message
ole_item.Send //sends the message, retourne un boolean

destroy ole_outlook