dim objOutlk   
dim objMail
dim strMsg

const olMailItem = 0

set objOutlk = createobject("Outlook.Application")
set objMail = objOutlk.createitem(olMailItem)
objMail.To = "toto@titi.fr"
objMail.cc = "titoititi.fr"

objMail.subject = "Titre du mail"
   
    strMsg = "Bonjour," & VbCrLf
    strMsg = strMsg & VbCrLf & "En pièce jointe vous trouverez 1 fichier : " & VbCrLf
    strMsg = strMsg & "- Le fichier en piece jointe contient toto."
    strMsg = strMsg & VbCrLf & "Bien cordialement."

    objMail.attachments.add("C:\piece_jointe.txt")
    objMail.body = strMsg
    objMail.send

set objMail = nothing
set objOutlk = nothing