TBH IDK how it works :D It just does for me...

Here is the source code in VBScript that I used:

code:

Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf 
Set iConf = CreateObject("CDO.Configuration")
Dim Flds
Set Flds = iConf.Fields
With Flds
  ' assume constants are defined within script file
  .Item(cdoSendUsingMethod)       = 2 ' cdoSendUsingPort
  .Item(cdoSMTPServerName)        = "somehost@microsoftc.om"
  .Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
  .Item(cdoSMTPAuthenticate)      = cdoBasic
  .Item(cdoSendUserName)          = "username"
  .Item(cdoSendPassword)          = "password"
  .Item(cdoURLProxyServer)        = "server:80"
  .Item(cdoURLProxyBypass)        = "<local>"
  .Item(cdoURLGetLatestVersion)   = True
  .Update
End With
With iMsg
  Set .Configuration = iConf
      .To       = """User A"" <userA@microsoft.com>"
      .From     = """User B"" <userB@microsoft.com>"
      .Subject  = "Hows it going? I've attached my web page"
      .CreateMHTMLBody "http://mypage"
      .AddAttachment "C:\files\mybook.doc"
      .Send
End With

Now, that needed some tweaking and I couldn't get the ITEM() bits to work.

Here are the first two failed versions:

sendmail.k2k

code:

break on
cls
; send email with COM

Dim $iMsg 
Dim $iConf 
Dim $Flds 
Dim $strHTML
Dim $strSmartHost
$cdoSendUsingPort = 2
$StrSmartHost = "smarthost"
$iMsg = CreateObject("CDO.Message")
@error ?
$iConf = CreateObject("CDO.Configuration")
@error ?
$Flds = $iConf.Fields
@error ?
; set the CDOSYS configuration fields to use port 25 on the SMTP server
$Flds.Item("sendusing")=2;=$cdoSendUsingPort
@error ?
; http://schemas.microsoft.com/cdo/configuration/ 
$Flds.Item("smtpserver")="smtp.ipass.ozemail.com.au" ;);=$strSmartHost
@error ?
$Flds.Item("smtpconnectiontimeout=10");=10
@error ?
$Flds.Update()
@error ?
; build HTML for message body
$strHTML = "<HTML>"
; apply the settings to the message
$iMsg.Configuration = $iConf
@error ?
$iMsg.To = "chrismat@ozemail.com.au" 
@error ?
$iMsg.From = "chrismat@ozemail.com"
@error ?
$iMsg.Subject = "This is a test CDOSYS message (Sent via Port 25)"
@error ?
$iMsg.Body = $strHTML
@error ?
$iMsg.Send()
@error ?

; cleanup of variables
$iMsg = ""
$iConf = ""
$Flds = ""

Sendmail2.k2k

code:

break on
?
; send email with COM
;Sending a Message via CDO
;Reference the project with CDO for Exchage 2000 and ADO 2.5 libraries
     
;Sending Mail Message Using Exchange Server
Dim $oMessage
;Create a Message Object
$oMessage = CreateObject("CDO.Message")
vartypename($oMessage) ?
;Set the properties
$oMessage.To = "chrismat@ozemail.com.au"
$oMessage.From = "chrismat@ozemail.com"
$oMessage.TextBody = "This is a sample Body"
$oMessage.Subject = "This is a sample Subject"
;$oMessage.Configuration.Fields("CdoSendUsing") = 3
;$oMessage.Configuration.Fields.Update()
;$oMessage.AddAttachment ("c:\file1.txt")
;$oMessage.CreateMHTMLBody "http://www.microsoft.com"
$oMessage.Send()
@error ?
?

Normally, you would set the server and login information in the CDO.Configuration object, but when I tried every combination of

$Flds.Item("sendusing") I couldn't make it work. Often I would get an error 100 (Cannot create another system semaphore.) too. I tried:

$Flds.Item("sendusing")=2
$Flds.Item("sendusing", 2)
$Flds.Item.sendusing=2
$Flds.Item.sendusing()=2

and others that I have not kept.

BTW 2 is SMTP and 3 is Exchange (i think). Have a look at that MSDN link and follow it down to the Messenging section. I suspect that one of the above lines worked and I ended up setting the parameters and they were remembered.

I only tried this for the novelty and didn't delve too deeply into the workings :}

HTH

cj

[This message has been edited by cj (edited 26 June 2001).]