Email VBScript

I started looking around and found this script to email via vbscript.  Later I’ll include different things you can email yourself if you’re an system administrator.

 

strSender = “sender_email”
strRecipient = “recipiente_email”
strSubject = “Subjet String”
strMessage = “Message String”
strcdoSendUsingPort = “2″
strMailServer = “smtp server”
strMailPort = “25″

Set objEmail = CreateObject(”CDO.Message”)
 objEmail.From = strSender
 objEmail.To = strRecipient
 objEmail.Subject = strSubject
 objEmail.TextBody = strMessage
 objEmail.Configuration.Fields.Item _
 (”http://schemas.microsoft.com/cdo/configuration/sendusing“) = strcdoSendUsingPort
 objEmail.Configuration.Fields.Item _
 (”http://schemas.microsoft.com/cdo/configuration/smtpserver“) = strMailServer
 objEmail.Configuration.Fields.Item _
 (”http://schemas.microsoft.com/cdo/configuration/smptserverport“) = strMailPort
 objEmail.Configuration.Fields.Update
 objEmail.Send

0 Responses to “Email VBScript”


  1. No Comments