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"