VBA Access Mail via Thunderbird

Version imprimable

19/12/2025, 18h53
Marcello29

VBA Access Mail via Thunderbird

Bonjour,
J'utilise avec succès quelques lignes de code VBA pour envoyer des mails via Thunderbird.
Le code est le suivant:
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & """" & "to='" & desti & "'"
strcommand = strcommand & "," & "subject='" & objet_mail & "',"
strcommand = strcommand & "body='" & texte_mail & "',"
strcommand = strcommand & "," & "attachment='file:///" & nom_fich & "'" & """"
Call Shell(strcommand, vbNormalFocus)

Le problème est que, depuis peu, je gère 3 boites mail dans Thunderbird et la macro n'utilise pas le bon mail expéditeur.
J'ai tenté de modifier une ligne comme suit
strcommand = strcommand & " -compose " & """" & "sender=mail2@orange.fr" & "to='" & desti & "'"
mais dans ce cas c'est bien l'adresse mail mail2@orange.fr qui devient l'expéditeur mais la zone destinataire reste vierge et le mail ne peut bien sûr pas partir.

Quelqu'un de plus doué que moi (ce qui n'est pas difficile) pourrait-t'il m'apporter ses lumières et me dire où intégrer le mail expéditeur.
Merci d'avance.
Marcel

Salut
Essayez ceci, mais sans garantie
https://kb.mozillazine.org/Command_l..._-_Thunderbird

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim profileName As String
profileName = "MyProfileName"
 
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
 
strcommand = strcommand & "-P """ & profileName & """"
 
strcommand = strcommand & " -compose " & """" & "to='" & desti & "'"
strcommand = strcommand & "," & "subject='" & objet_mail & "',"
strcommand = strcommand & "body='" & texte_mail & "',"
strcommand = strcommand & "," & "attachment='file:///" & nom_fich & "'" & """"
Call Shell(strcommand, vbNormalFocus)

20/12/2025, 14h10
Marcello29

Merci pour votre réponse mais ça ne marche pas, j'obtiens un message "Erreur d'exécution 53 Fichier introuvable. Message que je n'ai pas si je supprime votre ligne. Même message par contre en remplaçant -P par from
Cdt
Marcel
20/12/2025, 14h18
Marcello29

Le message d'erreur était généré car il manquait un espace avant -p. Cependant le fait de charger une adresse mail dans la variable profileName n'émet pas le mail à partir de l'adresse profilName.
20/12/2025, 21h00
tee_grandbois

bonsoir,
depuis le lien qu'hyperion13 ( :salut: ) a fourni, je lis ceci:

Citation:

"from" : set the from email address here if you have multiple identities and don't want the default one (available in TB 52+)

il suffit peut-être de mettre from à la place de sender :

Code:

strcommand = strcommand & " -compose " & """" & "from=mail2@orange.fr" & "to='" & desti & "'"

sauf si tu as une très très vieille version de thunderbird (< 52) cela devrait fonctionner
21/12/2025, 02h23
Marcello29

Bonsoir,
J'ai dernière version (68). J'ai testé avec from comme je l'avais vu d'après le lien indiqué par hyperion13.
Rien n'y fait, la macro VBA génère toujours le même expéditeur sans tenir compte de la variable expéditeur.
J'ai résolu le problème en ne gardant qu'un compte de messagerie dans Thunderbird.
Merci d'avoir essayé.
Cordialement
Marcel
23/12/2025, 08h48
hyperion13

Re,
J'ai trouvé ceci
23/12/2025, 10h50
Marcello29

Bonjour,
Ça marche ! Je ne mettais pas le from au bon endroit. Contrairement à une logique apparente, il ne faut pas le mettre au début.
Un ÉNORME MERCI pour le dépannage.
Bien cordialement.
Marcel.