Comment intégrer le corps du message dans une fonction SendMail
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:
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
