推荐订阅源

<% 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) = "smtp.qq.com" '改成可用的外部邮件服务器域名 .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "435348232" '以上服务器的用户名 .Item(cdoSendPassword) = "1111111" '密码 .Update End With

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

With objMessage .To = "435348232@qq.com" '改成接收者的邮件地址xincaihongxieye@163.com  .From = "435348232@qq.com" '改成发送人的邮件地址 .Subject ="测试邮件标题" .TextBody ="邮件内容测试" '正文 .Send End With

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