Discussion :

[dartplouf]

Bonjour,
En m'inspirant de ce que l'on trouve sur le forum j'ai fait une macro pour envoyer des mails avec une piece jointe (différente pour chaque destinataire).

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
22
23
24
25
26
27
 
Sub envoi()
Dim cel As Range, fc As String, admail As String
Dim responsable As String, messmail As String, sujet As String
responsable = "Toto"
sujet = "BGTA"
'ci-dessous une feuille "adresses"
For Each cel In Sheets("adresses").Range("A1:a2") 'si les données (adresses mail et fichier à envoyer) sont en A et B
   admail = cel.Value
   fc = cel(1, 2).Value 'attention mettre chemin complet du fichier à envoyer
   messmail = "Bonjour" & Chr(10) & "Ci-joint, le fichier" & Chr(10) & Chr(10) & responsable
 
 
strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & admail & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & messmail
strcommand = strcommand & "," & "attachment=" & fc
 
MsgBox strcommand
 
Call Shell(strcommand, vbNormalFocus)
 
 
 Next cel
 
End Sub

Quand je le lance, la MSG box a bien ce qu'i faut, une fenetre thunderbird s'ouvre mais rien ne se passe. pas de destinataire, pas de message,.... enfin rien du tout.

Je séche et je ne sais pas d'ou vient le problème.

Merci de vos réponses

[Invité]

Bonjour,
Thunderbird c'est une obligation? CDO?

https://www.developpez.net/forums/d1...t/#post7968025

[dartplouf]

Bonjour,

J'aurais préférerais ne pas utiliser de CDO car je peux être amener à me connecter sur différents serveurs donc le paramétrage me semble compliqué.

Merci

[Invité]

bonjour,
comme tu veux, mais la config es la même que Thunderbird!