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 !
Cordialement,
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
Partager