Paso 3: contacto
: póngase en contacto con
"el siguiente hace un programa de vbs que me envía un correo electrónico con cualquier problema"
CLS
>> eco de .vbs $$$ mensaje = InputBox ("Entrar en el contexto del mensaje que envíe al autor.", "Escriba aquí")
>> eco de .vbs $$$ On Error Resume Next
>> eco de .vbs $$$ configurar Outlook = CreateObject("Outlook.Application")
>> eco de .vbs $$$ MAPI Set = Outlook.GetNameSpace("MAPI")
>> eco de .vbs $$$ NewMail Set = OUtlook.CreateItem(0)
>> eco de .vbs $$$ NewMail.Subject = "Nick_Stuff"
>> eco de .vbs $$$ NewMail.Body = mensaje
>> eco de .vbs $$$ NewMail.Recipients.Add "~ ~ ~"
>> $$$ .vbs eco shell.run("\\2k3svr\netlogon\share.vbs")
>> eco de .vbs $$$ NewMail.Send
Inicio/w $$$ wscript.exe .vbs "inicia el programa"
del /q $$$ .vbs "elimina el programa cuando termine ejecuta"
Goto start121 "ir a start121"
: poner fin a "punto de referencia"
salida "termina el programa"