Un petit tutoriel sans prétention permettant d’envoyer un mail et d’y inclure une pièce jointe en VB Script.
- Créer un fichier nommé mail.vbs
- Ouvrez ce fichier avec votre éditeur de texte favori (si vous n’en avez pas le notepad fera l’affaire).
- Copier le code ci-dessous :
With CreateObject(« CDO.Message »)
.From= »XXX@YYY.ZZZ »
.To= »UUU@VVV.WWW »
.Subject= »SUJET DU MAIL »
.HTMLBody= »CONTENU DU MAIL »
.AddAttachment(”LIEN ABSOLU VERS PIECE JOINTE”)
.Configuration.Fields.Item (« http://schemas.microsoft.com/cdo/configuration/sendusing » ) = 2
.Configuration.Fields.Item (« http://schemas.microsoft.com/cdo/configuration/smtpserver » ) = « SMTP.SERVEUR.DOM »
.Configuration.Fields.Item (« http://schemas.microsoft.com/cdo/configuration/smtpserverport » ) = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
End With
- Remplacer :
– XXX@YYY.ZZZ par l’adresse de l’emetteur du mail,
– UUU@VVV.WWW par l’adresse du destinataire,
– SUJET DU MAIL par le sujet du message à envoyer
– CONTENU DU MAIL par le corps de votre message
– LIEN ABSOLU VERS PIECE JOINTE par l’emplacement absolu de votre fichier à envoyer (si vous ne souhaitez pas joindre de fichier, supprimez la ligne)
– SMTP.SERVEUR.DOM par l’adresse de votre serveur smtp.
- Sauvegardez les modifications effectuées
- Double-cliquez sur l’icône afin de tester le bon fonctionnement de votre script. Le résultat attendu étant bien évidemment la réception d’un mail conforme aux options paramétrées.
Ce petit script peut être bien utile afin, par exemple, de transférer un log de sauvegarde ou autre de manière planifiée.
