Jmail 发送邮件的例子2

<%@ Language=VBScript %>
<%
"==================================================
" 参 数 设 置
"==================================================

"修改收信人电子邮件地址，表单里的内容将发送到这个信箱中
myemail ="test@test.com"

"修改收信人姓名
myname ="我的公司"

"修改SMTP服务器
smtpserver ="mail.test.com"

"修改SMTP服务器的用户名和密码
smtpuser ="test@test.com"
smtppwd ="123456"

"与相应SMTP服务器对应的邮件地址
"很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地址，
"比如163.net的SMTP服务器在检查发信人邮件地址是不是以163.net
"结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的
smtpemail ="test@test.com"

"==================================================
" 程 序 开 始
"==================================================

tname =Request("t1")
temail =Request("t2")
tother =Request("t3")
tsubject =Request("t4")
tbody =Request("t5")

if tname <> "" and temail <> "" then

set jmail=server.CreateObject ("jmail.message")
jmail.Silent =true
jmail.Charset ="gb2312"

if smtpemail <> "" then
jmail.From ="test@test.com"
else
jmail.From =temail
end if

jmail.FromName =tname
jmail.ReplyTo =temail
jmail.Subject ="网上提交：" & tsubject
jmail.Body =tbody & vbcrlf & vbcrlf & "联系方式：" & tother
jmail.AddRecipient myemail,myname
jmail.MailServerUserName =smtpuser
jmail.MailServerPassWord =smtppwd

isgo=jmail.Send(smtpserver)
if isgo then
msg="提交成功！谢谢您的支持。"
else
msg="发送失败！请检查您的邮件地址是否填写正确。"
end if

jmail.Close
set jmail=nothing
end if
%>