With oBjMail
.To = "LeClient@gmail.com" ' le destinataire
.Subject = "Ici c'est l'objet" ' l'objet du mail
.Body = "Ici le texte du mail " 'le corps du mail ..son contenu
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
AppActivate ("Classeur1") 'ici le nom du classeur
Select Case MsgBox("1 : Vérifier votre message." & vbLf & vbLf & "voulez vous envoyer le message ?", vbYesNo, "msg")
Case vbYes
.Send
Case vbNo
GoTo fin
End Select
End With
fin:
ObjOutlook.Quit
Set oBjMail = Nothing
Set ObjOutlook = Nothing