Whoa!!!
That's a whole lot more elegant than my
oMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sm
tpserver") = "myservername.mydomain.com"
oMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/se
ndusing") = 2
oMsg.Configuration.Fields.Update
Terry Beavers
USF IT/TAA
-----Original Message-----
From: Siegfried Weber [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, June 04, 2002 3:52 AM
To: Exchange Discussions
Subject: RE: CDO/ IIS force through Exchange
As I mentioned. CDOSYS (CDO for Windows 2000) comes with Windows
2000/.NET Server (and Windows XP BTW) and offers such features. To send
a message with CDOSYS via a remote SMTP server you just need to set it
like this:
Set objConfiguration = CreateObject("CDO.Configuration")
Set objFields = objConfiguration.Fields
With objFields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPServer) = "myservername.mydomain.com"
.Update
End With
Set objMessage = CreateObject("CDO.Message")
With objMessage
Set .Configuration = objConfiguration
.From = "[EMAIL PROTECTED]"
.To = "[EMAIL PROTECTED]"
.Subject = "Here comes a Subject"
.TextBody = "Here is a text body"
.Send
End With
It is BTW pretty well documented on MSDN.
<Siegfried />
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Archives: http://www.swynk.com/sitesearch/search.asp
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
