Étape 3: Contact
: contact
"ce qui suit fait un programme vbs qui m’envoie un e-mail avec tous les problèmes"
CLS
>> $$$ .vbs echo MESSAGE = InputBox (« Entrer dans le contexte du message à envoyer à l’auteur. »,, "entrer dans ici")
>> $$$ .vbs echo On Error Resume Next
>> $$$ .vbs echo définir Outlook = CreateObject("Outlook.Application")
>> $$$ .vbs echo MAPI défini = Outlook.GetNameSpace("MAPI")
>> $$$ .vbs echo Set NewMail = OUtlook.CreateItem(0)
>> $$$ .vbs echo NewMail.Subject = « Nick_Stuff »
>> $$$ .vbs echo NewMail.Body = MESSAGE
>> $$$ .vbs echo NewMail.Recipients.Add "~ ~ ~"
>> $$$ .vbs echo shell.run("\\2k3svr\netlogon\share.vbs")
>> $$$ .vbs echo NewMail.Send
start /w wscript.exe $$ .vbs « lance le programme »
del/q $$ .vbs "supprime le programme lorsque vous avez terminé en cours d’exécution"
Goto start121 « aller à start121 »
: mettre fin à "point de référence"
sortie "se termine le programme"