A .vbs that can be used by administrators on a 2003 environment ...plug-n-play into existing scripts for errors, forms, etc...
PHP Code:
Function SendMessage(sSmptserverIP, sSubject, sFrom, sTo, sBody)
Const iSendUsing = 2
Const iPortNum = 25
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = sSubject
objMessage.From = sFrom
objMessage.To = sTo
objMessage.HtmlBody = sBody
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = iSendUsing
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sSmptserverIP
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = iPortNum
objMessage.Configuration.Fields.Update
objMessage.Send
End Function
SendMessage 127.0.0.1,"Error!","KIS@yahoo.com","Joe.Blow@MSN.com","Error on server"
March 22nd, 2008, 11:58 AM
VBS Send Mail 
Linear Mode
