使用CDO通過外部郵件服務器發郵件 (免安裝其他郵件組件)
John Peterson [ hooke 編譯 ]

　　WIN2K下的CDO或CDONTS被默認配置成只能通過本地的Microsoft SMTP服務來發送郵件，如果要用外部的郵件服務器，一般要安裝第三方組件。以下代碼教你如何利用CDO通過外部郵件服務器發送郵件。(譯者win2000下測試通過。)

<%
Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort=2
Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic=1
Const cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword"

Dim objConfig' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer)= "sony.com"'改成可用的外部郵件服務器域名
.Item(cdoSMTPServerPort)= 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate)= cdoBasic
.Item(cdoSendUserName)= "hooke" '以上服務器的用戶名
.Item(cdoSendPassword)= "mypassword" '密碼
.Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

With objMessage
.To = "F4@meteorgardon.com"'改成接收者的郵件地址
.From = "hooke@sony.com"'改成發送人的郵件地址
.Subject= "SMTP Relay Test"'標題
.TextBody = "SMTP Relay Test Sent @ " & Now() '正文
.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>