code:

---

; -- http://cwashington.netreach.net/depo/view.asp?Index=688&ScriptType=vbscript
break on

modSendMail("user@@server.com","CDOTest","Software Notification for PC","More Testing")

Function modSendMail($strTo, $strFrom, $strSubject, $strBody)

    ;declarations
    Dim $iMsg
    Dim $iConf

      $iMsg = CreateObject("CDO.Message")
      IF @error <> 0 ?@error " CDO Message not found" SLEEP 2 EXIT ENDIF
      $iConf = CreateObject("CDO.Configuration")
      IF @error <> 0 ?@error " CDO Config not found" SLEEP 2 EXIT ENDIF
     $iConf.Item(cdoSendUsingMethod) = $cdoSendUsingPort
     $iConf.Item(cdoSMTPServerPort) = 25
     $iConf.Item(cdoSMTPConnectionTimeout)= 10
     $iConf.Item(cdoSMTPServer) = "smtp.server.com"        
     ;$iConf.Item(cdoURLGetLatestVersion)(True)
     $iConf.Update

     $iMsg.Configuration = $iConf
     $iMsg.To = $strTo
     ;$iMsg.CC = "1234567890@messaging.nextel.com"
     $iMsg.From = $strFrom
     $iMsg.Subject = $strSubject
     $iMsg.TextBody = $strBody
     $iMsg.Send
    ; check for fail
    If @error <> '0' ?@error " Unable to Send Mail" sleep 2 Exit EndIf
    $mail = 0
EndFunction

---