1 2 3 4 5 6 7 8 9 10 11 12 13
| Sub cmdMail()
Dim oForm as Object
Dim Sujet as String, Corps as String, Des as String, Exp as String
If Dir(ConvertToURL("C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"), 0) <> "" then
Else
MsgBox("thunderbird n'éxiste pas dans le dossier",16,"Courriel")
Exit Sub
End If
Sujet = "Correction de votre dossier"
Corps = "Ceci est un essai"
Des = "adresseDestinataire@yahoo.fr"
shell(ConvertToURL("/usr/bin/thunderbird"),3, "-compose body=" & Corps & ",subject=" & Sujet & ",to=" & Des & ",attachment='C:\temp\info.doc,C:\temp\food.doc'" )
End Sub |
Partager