Discussion :

[Marcello29]

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

[hyperion13]

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

Code :

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

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)

[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

[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.

[tee_grandbois]

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

"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 :

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

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

[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

[hyperion13]

Re,
J'ai trouvé ceci

[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.