Bonjour à tous,
J'espère être dans le bon forum!!!!

Voici le bout de code qui fonctionne (normal il est adapté de la FAQ) auquel je voudrais intégrer le bout en rouge correspondant au texte devant figurer dans le corps du message.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub EnvoiClasseurExcel()
 
ActiveWorkbook.SendMail _
Recipients:=Array(Range("D4"), _
Range("F10")), _
Subject:="Projet " & ActiveWorkbook.Name, _
ReturnReceipt:=True
 
Body:="Pour votre information, le projet "& range("A2")&" a été validé par mes soins. " & _
vbLf & "La production est donc lancé à compter de ce jour." & _
vbLf & "Avec mes remerciements." & _
' vbLf & range("C2")
 
End Sub
Merci de me dire si c'est possible car la méthode SendMail a ceci de génial, c'est qu'elle ne s'occupe pas de la messagerie utilisée en l'occurence Lotus Notes 6.51 pour certain des utilisateurs.

Dans l'attente de vos solutions Merci d'avance