Transformer un batch en vbs
Bonjour,
J'utilise un batch pour envoyer des mails par MailSend. J'aurais voulu les envoyer par un vbs, mais mes connaissances en vbs sont limitées.
Ci-dessous le script en batch
Code:
1
2
3
4
5
6
7
8
9
10
11
12
|
@echo off
SET DEST=informatique.rdc@rdc.com
SET MAILSRV="smtp.rdc.com"
SET DOMAIN="rdc.com"
SET EXPEDITEUR="Sauvegarde_Data2@rdc.com"
SET SUJET="Sauvegarde RDC-Data2"
SET MSG="Ci-joint le CR de la sauvegarde du serveur RDC-Data2"
SET PJ="H:\Sauvegardes\Logs\Robocopy_RDC-Data2_Erreurs.txt,text/plain"
"D:\Scripts\Sauvegarde\MAILSEND.EXE" -f %EXPEDITEUR% -d %DOMAIN% -smtp %MAILSRV% -t %DEST% -sub %SUJET% -M %MSG% -a %PJ% +cc +bc |
Puis le même en vbs, mais qui ne fonctionne pas (fin d'instruction attendue dans la dernière ligne après -f)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Dim Sh, vDest, vMailSrv, vDomain, vExpediteur, vSujet, vMsg, vPJ
Set Sh=CreateObject("WScript.Shell")
vDest="informatique.rdc@rdc.com"
vMailSrv="smtp.rdc.com"
vDomain="rdc.com"
vExpediteur="Sauvegarde_Data2@rdc.com"
vSujet="Sauvegarde RDC-Data2"
vMsg="Ci-joint le CR de la sauvegarde du serveur RDC-Data2"
vPJ="H:\Sauvegardes\Logs\Robocopy_RDC-Data2_Erreurs.txt,text/plain"
wshell.run "D:\Scripts\Sauvegarde\MAILSEND.EXE" -f vExpediteur -d vDomain -smtp vMailSrv -t vDest -sub vSujet -M vMsg -a vPJ +cc +bc |
Merci d'avance pour vos conseils
