''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'This VBScript uses Microsoft® Windows® Collaboration Data Objects (CDO)
'Both VBScript and CDO are integral parts of every Windows series of operatins systems
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'create reference to CDO component.
Set objMessage = CreateObject("CDO.Message")

'fill in subject, sender, receiver, and the text body.
objMessage.Subject = "Some subject here"
objMessage.From = """Who's it from here"" <someone@somedomain.com>"
objMessage.Sender = "someone@somedomain.com"
objMessage.To = "whomever@somedomain.com"
objMessage.TextBody = " " & vbCRLF & vbCRLF & "Server has successfully backed up to somewhere." & vbCRLF & vbCRLF & "**********************************" & vbCRLF & "*                                        *" & vbCRLF & "** Do not reply to this email **" & vbCRLF & "*                                        *" & vbCRLF & "**********************************" & vbCRLF & vbCRLF & "If you're having support issues with backups or any other technical problem please remember" & vbCRLF & "that the quickest way to a resolution is to email whomever supports your miserably engineered systems and a support ticket" & vbCRLF & "just MIGHT be created for you." & vbCRLF & vbCRLF & "We'll work hard to resolve any technical trouble you're experiencing so cross your finger on this one!" & vbCRLF & vbCRLF & "Thank you," & vbCRLF & vbCRLF & "Your name here" & vbCRLF & "877-555-5555" & vbCRLF & "Website:     http://yourwebsitehere.com" & vbCRLF & "Tech Blog:  http://yourtechblog.com"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'define where SMTP service resides
' if the server is remote set this value to 2
' if the server is local set this value to 1
' remember to change to your remote smtp server
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'specify the name of the SMTP server that will be used
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "somedomain.com"

'specify the port to use which is port 25 by default for SMTP
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'if your smtp server requires authentication with a username and password
' then un-comment the next five objMessage settings.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'set the authentication method. In this example we use Basic Authentication (clear-text).
'If we want to use NTLM (Windows Authentication), we would change the number to 2 instead of 1.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'specify the user account to use. A special account is advisable for doing this.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "someone@somedomain.com"

'specify the password that will be sent
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your_password_here"

'set that we will not use SSL for the communication to the SMTP server.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'set the timeout to 60 seconds.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update
objMessage.Send