Bonjour,

J’ai créé une macro ci-dessous pour envoyer des mails sur Mozilla thunderbird, quelqu’un aurait l’amabilité de me renseigner sur comment attaché à la valeur X une cellule excel ( une date pour prendre le bon fichier pd ou word qui change chaque jour).

Merci beaucoup !


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
Sub Test()
Dim destinataire, sujet, fichierjoint As String
destinataire = "--------"
sujet = "-----"
 
body = "test"
test1 ""
fichierjoint = "P:\----\----\Test 1XXX.docx"
 
strcommand = "C:\Program Files (x86)\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
Cordialement,