以下是引用片段:
<% dim jmail
set jmail=server.createobject("Jmail.message")
jmail.silent=true
jmail.charset="gb2312"
jmail.fromname=request("fname") '这里是发件人名称,可以从数据库或表单中取值
jmail.from="你的163邮箱" '这里是发件人邮箱,可以从数据库或表单中取值,但格式一定要正确
Jmail.AddRecipient("邮件接收邮箱地址")
jmail.subject=request("title") '这是邮件标题,该值可以从数据库或表单中取值
jmail.Body =request("content")&vbLf&"邮件来自:"&request("femail") '这是邮件内容
jmail.mailserverusername="你的163的邮箱用户名"
jmail.mailserverpassword="你的163邮箱用户登陆密码"
jmail.maildomain="smtp.163.com" '邮件发送服务器域名
sendok=jmail.send("smtp.163.com") 'smtp服务器名称
if sendok then
response.write "恭喜您,邮件发送成功"
else
response.write "对不起,邮件发送失败,可能由于服务器登录设置配置不当造成或填写的信息有误,请确认正确后再进行发送!"
end if
%> |