Envoi mail par excel avec thunderbird

bonjour,

j'ai le genre de même souci que siderfan49 dans cette discussion:
j'avais un code pour envoyer des mails à partir d'excel sous outlook, or le pc a claqué et on m'a remis thunderbird (excellente messagerie mais pour faire du vba....................ca se complique).
-j'ai donc trouvé une solution pour générer un mail avec pièce jointe mais je ne peux mettre qu'un destinataire (voir un cc mais j'ai des messages avec parfois 10 destinataires séparés pas un ; sous outlook)voir code ci dessous:

Code:

---

1 2 3 4 5 6

Private Sub CommandButton2_Click() sujet = "Sujet du message" Msg = "Très long message de plusieurs lignes avec pleins de liens" toto = "C:\Program Files\Mozilla Thunderbird\thunderbird -compose attachment='file:///" & "C:\Users\titi\Documents\new 1.txt" & "'" & ",body=" & Msg & ",subject=" & sujet & "&" & ",to=" & "toto@laposte.net" Call Shell(toto) End Sub

---

-j'ai trouvé une deuxième solution pour avoir plusieurs destinataires (séparatin par ,)mais la pièce jointe ne fonctionne pas!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton1_Click() Dim destinataire, sujet, fichierjoint As String destinataire = "toto@laposte.net,titi@laposte.net" sujet = "Salut!"   body = "Comment ca va ?" fichierjoint = "C:\Users\toto\Documents\titi\new 1.txt"   strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird" strcommand = strcommand & " -compose " & "mailto:" & destinataire & "?" strcommand = strcommand & "&" & "subject=" & sujet & "&" strcommand = strcommand & "body=" & body & "&" strcommand = strcommand & "&" & "attachment='file:///" & fichierjoint & "'"   MsgBox strcommand   Call Shell(strcommand, vbNormalFocus)   End Sub

---

bizarre!!!!

il y a bien la solution de passer par CDO et ça marche mais l'utilisateur ne voit pas ce qui se passe et ça me dérange un peu qu'il ne voit pas ce qu'il envoie

merci d'avance

Bonjour,

je pencherai pour une erreur de quote ou de syntaxe car ceci

Code:

---

strcommand = strcommand & "&" & "attachment='file:///" & fichierjoint & "'"

---

ne me parait pas conforme à ce qu'on trouve dans le lien que je t'ai passé l'autre fois, à savoir :

Citation:

---

Example: thunderbird -compose to='address@provider.it',cc='address2@provider.fr',subject="something",body="Something else",attachment="C:\Documents.7z" (use attachment="file:///C:/Documents.7z" for Thunderbird 2.0)

---

Me revoilà après une longue pause !!
donc j'ai testé en changeant la syntaxe mais tjs pareil
Est-il vraiment possible d'envoyer une pièce joint à plusieurs destinataires de cette manière? je commence à en douter
en attendant je passe par CDO, je ne voulais pas mais je mets l'expéditeur en copie comme ça il a une trace de ce qu'il envoie.
voici quand même le code avec thunderbird

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton1_Click()   Dim destinataire, sujet, fichierjoint As String destinataire = "titi@toto.com,tata@toto.com" sujet = "Salut!"   body = "Comment ca va ?" fichierjoint = "C:/Documents and Settings/DAVID/Bureau/new 1.txt"   strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird" strcommand = strcommand & " -compose " & "mailto:" & destinataire & "?" strcommand = strcommand & "&" & "subject=" & sujet & "&" strcommand = strcommand & "body=" & body & "&" strcommand = strcommand & "," & "attachment=file:///" & fichierjoint MsgBox strcommand   Call Shell(strcommand, vbNormalFocus)   End Sub

---

Très longue pause, de fait.

Vu que cette problématique m'intéresse, j'ai porté ta question sur le forum de Thunderbird et il semble que cela doive fonctionner :

Regarde ici.


j'ai testé, c'était bien ta syntaxe et l'utilisation incorrecte des doubles et simples quootes et & qui provoquaient l'erreur.

Voici ton code corrigé, qui fonctionne chez moi, avec to= en lieu et place de mailto, plus corrections des " et & et '.

Il fallait juste scrupuleusement respecter la syntaxe renseignée dans la page web du command line options de Thunderbird.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton1_Click() Dim destinataire, sujet, fichierjoint As String destinataire = "titi@toto.com,tata@toto.com" sujet = "Salut!" body = "Comment ca va ?" fichierjoint = "C:\caisslog.txt" strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird" strcommand = strcommand & " -compose " & "to='" & destinataire & "'" strcommand = strcommand & "," & "subject=" & sujet & "," strcommand = strcommand & "body=" & body strcommand = strcommand & "," & "attachment=file:///" & fichierjoint MsgBox strcommand Call Shell(strcommand, vbNormalFocus) End Sub

---

Pense à cloturer.

je viens de tester, effectivement ces satanées quotes étaient utiles, elles ne sont pas là pour l'esthétique!!
encore merci

Quelles sont les limites du mode shell ?

Car j'ai déjà pratiqué l'envoi de plusieurs milliers de mails avec outlook.

- plusieurs destinataires To, CC , CCI cela marche avec thunderbird/outlook
- mettre dans le body une mise en page en mode HTML c'est Ok pour Outlook et sans limitation dans la longueur du texte, mais thunderbird c'est limité !! (?)
- plusieurs pièces jointes c'est Ok pour Outlook mais comment le faire avec thunderbird ?
- Enregistrer le mel avec outlook (format msg) c'est Ok mais avec thunderbird (format eml) comment procéder ?

l'utilisation du fonctionnement sendkey peut avoir lieu, mais dans son déroullement, thunderbird fini lamentablement par planter.



Merci :lol: