Sending E-mail via VBScript using CDO

This is a template for sending e-mail via vbscript using CDO. You will need to replace the subject/to/from to your liking. I also showed how to place an attachment in the email. Just change the path to the file you want to attach. You will also need to replace "smtp.yourdomain.com" with a valid smtp server. Most companies have some kind of smtp server and there may even be some free ones...that are publicly accessible but I doubt it...as they would be huge targets for spam deliveries. My original use for this script was to distribute log files and it was called by another script if the log was parsed and errors were found.

Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Test" objMessage.From = "Test@yourdomain.com" objMessage.To = "Test@yourdomain.com" strFile = "C:\yourfilename.doc" 'Create FSO Object Set objFSO = CreateObject("Scripting.FileSystemObject") if objFSO.FileExists(objLogFile) Then objMessage.TextBody = "Test" objMessage.AddAttachment strFile Else objMessage.TextBody = "Test Unable to attach " & strFile & "." End If '==This section provides the configuration information for the remote SMTP server. '==Normally you will only change the server name or IP. objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yourdomain.com" 'Server port (typically 25) objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== objMessage.Send