quote:

---

Of course, it assumes that the author of a script has knowledge of, and access to, their local SMTP server... there's always something...[sigh!]

---

code:

---

run '%comspec% /c start "SendMail '+$server+'" /MIN telnet $server 25'

---

(1) Are most people going to have access to Port 25?

(2) In digging into this you have to grab the Port-over of SENDMAIL from UNIX..

(3) From - http://slashdot.org/articles/99/09/25/1136218_F.shtml

That this is not Open Source for SendMail for NT.

If I am wrong, please point me in the right direction.

Kent

code:

---

my $objCDO = Win32::OLE->CreateObject("CDONTS.NewMail");
$objCDO->{From} = "User Name <SMSAdmin\@tycoelectronics.com>";
$objCDO->{To} = "$EmailAddr";
$objCDO->{Subject} = "Software Notification for PC $PCName";
$objCDO->{Body} = "$EmailText";
$objCDO->{BodyFormat} = 0;
$objCDO->{MailFormat} = 0;
$objCDO->Send;
$objCDO = 0;

---

quote:

---

Software Requirements
The dynamic-link libraries for CDO 1.2.1 (CDO.DLL) and CDO 1.2.1 Rendering (CDOHTML.DLL) are MAPI client object libraries. As such, they require MAPI (the version of MAPI32.DLL installed with Microsoft® Exchange Server version 5.0, or above) and service providers—for example, the same service providers as with Microsoft Exchange Server. CDOHTML.DLL and CDO.DLL are included with Microsoft Exchange Server and are installed on the server when the installation option Active Server Components is selected. CDO 1.2.1 Rendering (CDOHTML.DLL) is intended for server-side use only.

Microsoft® Outlook™ 98 installs the CDO 1.2.1 libraries. To enable client applications to use CDO 1.2.1, install Microsoft Outlook 98. For server applications, install Microsoft Exchange Server version 5.5.

Note CDO works with Microsoft Outlook, but CDO.DLL is not installed with the Microsoft Outlook 97 setup program.

---

code:

---

break on
$objCDO = CreateObject("CDONTS.NewMail")
IF @error <> 0
 ?@error " CDO not found"
 SLEEP 2
 EXIT 1
ENDIF
$objCDO.From = "CDOTest"
$objCDO.To = "user@@domain.com"
$objCDO.Subject = "Software Notification for PC"
$objCDO.Body = "More Testing"
$objCDO.BodyFormat = 0
$objCDO.MailFormat = 0
$objCDO.Send
$objCDO = 0
  

---

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

---