Discussion :

[laynet]

Bonjour

Merci d'avance à toute personne qui peux me donner un coup de main afin de pouvoir réaliser un code VBA permettant d'envoyer un Mail pour une liste de contact (Via Thunderbird )

cette liste de contact est présentée sur feuille Excel (Nom, adresse, text à envoyer et la pièce joint, ....)

Bref mon problème est comment automatiser l'envoi de l'ensemble des mails en fonction de chacun ( son texte et sa pièce jointe )


merci d'avance pour votre aide

Pour plus de détails , voici un fichier MailVBA

[EngueEngue]

Il te suffit de boucler...

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
Private Sub MailThunderbird()
Dim destinataire as string, sujet as string, fichierjoint As String
 
destinataire = "bolosse1@bolosse.com,bolosse2@bolosse.com"
sujet = "Salut bolosse"
body = "La forme bolosse?"
fichierjoint = "C:\bolosse\bolosse.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
 
Call Shell(strcommand, vbNormalFocus)
 
End Sub