Si estás buscando una manera de enviar mensajes de correo electrónico de forma automatizada y eficiente, ¡has llegado al lugar correcto! En este artículo te enseñaremos cómo enviar un mensaje de correo electrónico utilizando VBScript, un lenguaje de programación sencillo e ideal para automatizar tareas en Windows. Ya sea que necesites enviar correos electrónicos de forma masiva o simplemente estés interesado en simplificar tus procesos de envío, seguro que encontrarás en este artículo una solución que te funcionará perfectamente. ¡Descubre cómo enviar mensajes de correo electrónico con VBScript!
Puede haber casos en los que necesite automáticamente enviar un mensaje desde algún tipo de aplicación o programa. O bien, es posible que desee enviarse una alerta cuando un servicio se detenga repentinamente en uno de sus puntos críticos. Windows 2003 Servidor.
Sin algún tipo de aplicación o agente de monitoreo ejecutándose en el sistema, necesitará algún tipo de programa o guion para enviar un mensaje con la información pertinente.
Aquí hay un ejemplo de un script que usa CDO para enviar un mensaje de correo electrónico desde una computadora utilizando un servidor SMTP remoto. Reemplazar smtp.mydomain.com con el nombre de host del servidor SMTP a través del cual enviará el correo.
Puede modificar las otras propiedades, como de quién es el correo y a quién se envía el correo. Simplemente copie y pegue en un editor de texto como el Bloc de notas, luego guarde con la extensión de .vbs.
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "[email protected]"
objEmail.To = "[email protected]"
objEmail.Subject = "Service Is Down"
objEmail.Textbody = "The Service ### has stopped."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.mydomain.com"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.SendError 403 The request cannot be completed because you have exceeded your quota. : quotaExceeded
