Bonjour,

Dans le cadre du post que j'ai créé (
http://www.developpez.net/forums/d13...l-automatique/
), je voudrais ajouter en signature le nom de l'expéditeur du mail.

Je suis allé voir dans divers forums et je ne trouve pas le code à utiliser. Je suppose que ce doit être quelque chose comme "sender" ?

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub EnvoiMail()
Dim destinataire, cc, body, sujet, strcommand, fichierjoint As String
 
destinataire1 = "tota.tata@XXX.fr,titi.toto@XXX.fr"
cc = "tutu.tete@XXX.fr,tata.tutu@XXX.fr"
sujet = "Relances"
 
body = "Bonjour," & vbLf & "A ce jour, et sauf erreur de notre part, nous n'avons toujours pas reçu la copie de la notification des dettes concernant votre Centre, mentionnés dans le tableau ci-joint." & vbLf & "Nous vous remercions de nous transmettre ces documents dans les meilleurs délais." & vbLf & vbLf & vbLf & "Cordialement." & vbLf & vbLf & vbLf & vbLf & "Le Service Comptabilité"
fichierjoint = "G:\CPT\Suivi des Créances\" & ActiveSheet.Name & " - " & Format(Now, "dd/mm/yyyy") & ".pdf"
 
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "cc='" & cc & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & body
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
 
 
Call Shell(strcommand, vbNormalFocus)
 
End Sub
L'idée serait, de rajouter dans le corps du message, après "Pour le Service Comptabilité", le nom du destinataire : Bernard Durant ...

Pourriez-vous me dire comment je pourrais faire ?

Merci d'avance.


Cordialement.