Envoyer un mail avec une pièce jointe en VBS

nicosmash — Wed, 11 Sep 2013 16:26:26 +0000

Voici comme envoyer un mail avec un script Visual Basic (VBS) :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

dim objOutlk
dim objMail
dim strMsg

const olMailItem = 0

set objOutlk = createobject("Outlook.Application")
set objMail = objOutlk.createitem(olMailItem)
objMail.To = "toto@titi.fr"
objMail.cc = "titoititi.fr"

objMail.subject = "Titre du mail"

strMsg = "Bonjour," & VbCrLf
strMsg = strMsg & VbCrLf & "En pièce jointe vous trouverez 1 fichier : " & VbCrLf
strMsg = strMsg & "- Le fichier en piece jointe contient toto."
strMsg = strMsg & VbCrLf & "Bien cordialement."

objMail.attachments.add("C:\piece_jointe.txt")
objMail.body = strMsg
objMail.send

set objMail = nothing
set objOutlk = nothing

Blog de Nicosmash » Script VBS

Envoyer un mail avec une pièce jointe en VBS