'Send SMTP Email
'Created by : MAK
'Contact: mak_999@yahoo.com
'Date: Jan 1, 2004
'Send simple CDO email
'Save this vbs script as sendcdosysmail.vbs
'Usage: cscript sendcdosysmail.vbs "mak_999@yahoo.com" "mak_999@yahoo.com" "test" "This is a test message" "MySMTPServer"

VFrom=WScript.Arguments(0)
VTo=WScript.Arguments(1)
VSubject=WScript.Arguments(2)
VBody=WScript.Arguments(3)
VSMTPServer=WScript.Arguments(4)

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = VSubject
objMessage.Sender = VFrom
objMessage.To = VTo
objMessage.TextBody = VBody

'The line below shows how to send a webpage from a remote site 
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") = VSMTPServer
'Server port (typically 25) 
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objMessage.Configuration.Fields.Update 

objMessage.Send
wscript.echo "Message sent"