ASP中VBScript实现邮件发送的问题

bruda 2009-12-02 10:48:11

大家帮我看看这两段代码，都会出错，是不是用这个一定要在服务器装什么组件啊？
帮我看看哪里有错？
另外：我看很多人用jmail，好用吗？要用的话是不是一定要在服务器上装jmail？



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.yahoo.com.cn" '改成可用的外部邮件服务器域名 

.Item(cdoSMTPServerPort) = 25 

.Item(cdoSMTPConnectionTimeout) = 10 

.Item(cdoSMTPAuthenticate) = cdoBasic 

.Item(cdoSendUserName) = "brudaluxu" '以上服务器的用户名 

.Item(cdoSendPassword) = "7297749" '密码 

.Update 

End With 



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

Set objMessage.Configuration = objConfig 



With objMessage 

.To = Trim(Request.Form("bruda@126.com")) '改成接收者的邮件地址 

.From = "brudaluxu@yahoo.com.cn" '改成发送人的邮件地址 

.Subject = Trim(Request.Form("111")) '标题 

.TextBody = Trim(Request.Form("222")) '正文 

'.AddAttachment "C:\Scripts\Output.txt"'邮件附件 

.Send 

End With 



Set Fields = Nothing 

Set objMessage = Nothing 

Set objConfig = Nothing



Set objEmail = CreateObject("CDO.Message")



SendMail



Sub SendMail

objEmail.From = "zdhsyzx@126.com" '发件人

objEmail.To = "bruda@126.com" '收件人

objEmail.Subject = "111" '电子邮件主题主题

objEmail.Textbody = "222" '电子邮件内容

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.126.com" 'SMTP服务器地址

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="zdhsyzx" '用户名

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="666666" '密码

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 '明文验证

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 'SMTP端口号

objEmail.Configuration.Fields.Update

objEmail.Send

End Sub