Discussion :

[benadry]

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.

[EngueEngue]

from

[benadry]

Re-,

Merci pour la réponse.

Je viens d'essayer en indiquant ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

body = "Bonjour" & vbLf & vbLf & "Sauf erreur de notre part nous n'avons pas encore reçu la copie de la notification ou de la régularisation des indus 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 & "Bien cordialement." & vbLf & vbLf & vbLf & vbLf & "Pour le Service Comptabilité" & vbLf & vbLf & vbLf & from

Et ça ne fonctionne pas (j'ai pourtant bien défini la variable "from" auparavant).

J'ai dû rater quelque chose ?

[EngueEngue]

Tu veux le nom de l'expéditeur sauvegardé dans thunderbird ?

[benadry]

Re-,

En fait, je voudrais, en signature, le nom de l'expéditeur du mail.

Si le mail part de la boîte de Tartempion, il faudrait que le mail soit signé "Tartempion", au moyen de la commande d'une macro.

Merci de ton aide en tout cas.

[graphikris]

Bonjour,

Pour ma part j'utilise Outlook 2003 au boulot, et lorsque j'envoie un mail par le biais d'une macro Excel, ce mail part avec ma signature électronique programmée dans mon logociel de messagerie.

Cordialement