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.
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.
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
Dans l'attente de vos solutions Merci d'avance
Partager