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

2009-12-02 10:48:11 210 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ASP使用Jmail组件发送电子邮件的代码最近网站需要新增某项操作触发自动发送邮件功能，上网查了一些资料，需要ASP网站的服务器包含相应功能的组件，一般Jmail组件使用的比较普遍。找到了以下两组使用Jmail发送邮件的代码。使用方法：替换相应的内容，直接放到ASP网页中即可。代码一： &lt;%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%&gt; &lt;% Set msg=Server.Creat... 阅读详情

大家帮我看看这两段代码，都会出错，是不是用这个一定要在服务器装什么组件啊？
帮我看看哪里有错？
另外：我看很多人用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