Stap 3: Contact
: Neem contact op met
"de volgende maakt een vbs programma dat mij een e-mail met eventuele problemen stuurt"
CLS
>> $$$ .vbs echo bericht = InputBox ("Enter de context van het bericht te sturen naar de auteur.",, "Voer hier")
>> $$$ .vbs echo On Error Resume Next
>> $$$ .vbs echo Stel Outlook = CreateObject("Outlook.Application")
>> $$$ .vbs echo MAPI instellen = Outlook.GetNameSpace("MAPI")
>> $$$ .vbs echo instellen NewMail = OUtlook.CreateItem(0)
>> $$$ .vbs echo NewMail.Subject = "Nick_Stuff"
>> $$$ .vbs echo NewMail.Body = bericht
>> $$$ .vbs echo NewMail.Recipients.Add "~ ~ ~"
>> $$$ .vbs echo shell.run("\\2k3svr\netlogon\share.vbs")
>> $$$ .vbs echo NewMail.Send
start /w wscript.exe $$$ .vbs "wordt het programma gestart"
del/q $$$ .vbs "Hiermee verwijdert u het programma wanneer u klaar bent met"
goto start121 "Ga naar start121"
: einde "referentiepunt"
afrit "beëindigt het programma"