asp网站留言发送到指定邮箱处理方法

[gggbus]

asp网站留言发送到指定邮箱处理方法

[ruiandli]

楼上正解。

[此人也很懒]

用Jmail就可以了

[爱躲藏的驴]

如果没有邮件发布组件，需要上网下载安装组件。发布的代码如下：你把该替换的东西换成你的就行了。


Set jmail = Server.CreateObject("JMAIL.Message")
jmail.silent = false
jmail.Charset = "GB2312"'编码类型
jmail.From = ""&Server_From&""' 发件人地址
jmail.FromName = ""&Server_Fname&""' 发件人显示名称

jmail.MailServerUserName = ""&Server_Email&""'邮箱服务器用户帐号
jmail.MailServerPassword = ""&Server_PWD&""'密码
jmail.AddRecipient ""&Email&""' 收件人地址
jmail.Subject = ""&Title&""'主题
jmail.HTMLBody =""&Content&""'内容

if Server_myFiles<>"" then
jmail.AddAttachment Server.MapPath(Server_myFiles),True '附件
end if
'jmail.AddRecipientBCC Email 'Email替代密件收件人的地址
'jmail.AddRecipientCC Email 　'Email替代邮件抄送者的地址
jmail.Priority = ""&Server_Grade&""
jmail.Send ""&Server_Emserver&""
jmail.Close()

if err.number<>0 then
response.Write("<script language=javascript>alert('^*^ 对不起，发送失败！请返回检查...... ');location.href='javascript:history.go(-1)';</script>")
else
response.Write("<script language=javascript>alert('^v^ 恭喜您，邮件发送成功！ ');location.href='?';</script>")
end if