Bonjour, j'ai le même problème. j'ai le bout de code suivant :
Sub SendRappel()
Dim stRecipient As String
Dim stSubject As String
Dim stBody As String
Dim stAttachement As String
Dim stsalutations As String
Dim starreteau As Date
stRecipient = ActiveSheet.Cells(16, 15).Value
stSubject = ActiveSheet.Cells(10, 23).Value
stAttachement = ActiveSheet.Cells(3, 22).Value
stsalutations = ActiveSheet.Cells(23, 15).Value
starreteau = ActiveSheet.Cells(27, 20).Value
'création de l'email
Set apOutlook = CreateObject("Outlook.Application")
apOutlook.Session.Logon
Set itEmail = apOutlook.CreateItem(olMailItem)
With itEmail
.To = stRecipient
.Subject = stSubject
.Body = " & stsalutations & " lignes à traiter (Cellule O23 de l'onglet R1)
.Attachments.Add stAttachement
.Display
End With
End Sub
et je souhaite que dans l'email apparaisse "Cher Monsieur" qui est au fait la variable stsalutations. Merci de votre aide.