[XL-2010] Macro pour Mail et piece jointe en VBA

Il te suffit de boucler...

Code:

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