用CDO发送简单电子邮件的例子。很简单。带入如下：
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) = "mail.cccar.com.cn" 'smtp服务器地址 .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "用户名" '发送者的用户名 .Item(cdoSendPassword) = "口令" '发送者的密码 .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = "ljc@cccar.com.cn" '接收者的邮件地址 .From = "ljc@cccar.com.cn" '发送者的邮件地址 .Subject = "Test of CDO Sending Email in asp" '邮件的标题 .TextBody = "my email test ,this email is sent by cdo " '邮件的正文 .CC = ljc@oa.cccar.com.cn;sxy@cccar.com.cn '抄送地址 .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing