Bonjour,
Voilà qui devrait correspondre à tes besoins :
On Error GoTo 1 'Renvoie à la ligne 1 si erreur
Dim appmail As Outlook.Application 'Avant cela, tu doit activer les objects Librairy d' Outlook dans les référence VBAProject (Menu Outil)
Dim mail As Outlook.MailItem
Set appmail = CreateObject("outlook.application" ) 'Création de l' object appmail
Set mail = appmail.CreateItem(olMailItem) 'Création de l' object mail de l' object appmail
With mail
.Subject = "Votre commande sour ref " & Range("B23" ) 'Titre du message
.Body = "Cher " & Range("A23" ) & ", nous vous remercions pour votre commande sour ref " & Range("B23" ) & Chr(10) & "Nous avons le plaisir de vous informer que la date d'expedition est le " & Range("C23" ) 'Corps du message
.To = Range("G23" ) 'Destination. Tu peux aussi utiliser .Recipients si l' adress de messagerie du destinataire est dans ton carnet d' adresse
.Send 'Envoie le message
End With
Range("D23" ) = "X"
Exit Sub
1 Range("D23" ) = "Une erreur est intervenu lors de l' envoie du message"
Normalement, ça devrait aller.