Discussion :

[siderfan49]

Bonjour,

J'essaie d'envoyer via excel des emails en utilisant le courrielleur Thunderbird.
Dans le code ci-dessous pourriez vous me dire comment attacher une pièce jointe et aussi comment faire "patir" l'email en question.

En fait avec le code ci-dessous on arrive à : ouvrir un nouveau message, avec l'objet, l'adresse du destinataire et du texte dans le corps du seeage. Sur le reste je bloque.

Merci par avance.

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
Sub envoi_des_mails()
 
Dim destinataire, sujet, body
Dim strCommand As String
 
destinataire = "xxxxx@neuf.fr"
sujet = "mois de septembre 2008 "
body = "Merci d'expliquer votre problème ici"
 
 
    strCommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
 
 
    strCommand = strCommand & " -compose " & "mailto:" & destinataire & "?"
    strCommand = strCommand & "subject=" & sujet & Chr$(34) & "&"
    strCommand = strCommand & "body=" & body
 
    Call Shell(strCommand, vbNormalFocus)
 
End Sub

[jolzeviking]

As tu tenté tout simplement l'enreistreur de macro?
cordialement.

[siderfan49]

J'ai essayé avec l'enregistreur de macro d'excel, mais l'enregistreur ne prend pas en compte les application externe à Excel. Donc les manips ne sont pas implémentées dans le code vba d'excel. L'enregistreur ne prend en compte que les actions dans excel.

Merci

[Godzestla]

Bonjour,

vue que tu travailles avec Shell, je te suggère d'essayer directement en ligne de commande jusqu'à trouver la syntaxe que tu cherches.

Pour un pièce jointe, le keyword devrait ressembler à "Attachement=' suivi du fullname de l'attachement.

Mais, je pense bien qu'on doit pouvoir le faire plus propre, c'set à dire en utilisant les routines standard de VBA excel pour envoyer un email en utilisant le programme de mail défini par défaut sur le PC (Internet option , mailing software).

Voir la FAQ ou les tutos pour routines standards de mailing.

Bonne chance.

Si tu trouves, merci de publier ta soluce. J'ai aussi Thunderbird au privé et cela m'intéresse.

Edit.... j'ai trouvé quelquechose (19h55).

Regarde ici : Command line arguments - Thunderbird