jmail使用
原文章%77w%77%2Ef%6F%72%61%73%70%2E%63n
<%@ Language=VBScript %>
<%
'收信人电子邮件地址
'表单里的内容将发送到这个信箱中
myemail =""
'收信人姓名
myname =""
'所使用的SMTP服务器
smtpserver ="smtp.163.net"
'如果SMTP服务器需要发信认证，则设置登录SMTP服务器的用户名和密码
smtpuser ="zjyfc"
smtppwd ="这里填写密码"
'与相应SMTP服务器对应的邮件地址
'注意：很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地
'址，比如163.net的SMTP服务器在检查发信人邮件地址是不是以163.net
'结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的
smtpemail =zjyfc@163.net
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 ="zjyfc@163.net"
else
jmail.From =temail
end if
jmail.FromName =tname
jmail.ReplyTo =temail
jmail.Subject ="网上提交：" & tsubject
jmail.AddRecipient myemail,myname
jmail.Body =tbody & vbcrlf & vbcrlf & "其他联系方式：" & tother
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
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>jmail发送邮件案例</title>
<LINK rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<form action=lianxi.asp>
<br><%=msg%>
<br>姓名：
<br><input name=T1 size=10>
<br>电子邮件：
<br><input name=T2 size=30>
<br>其他联系方式：
<br><input name=T3 size=30>
<br>主题：
<br><input name=T4 size=30>
<br>正文：
<br><TEXTAREA rows=4 cols=25 name=T5>
</TEXTAREA>
<br><INPUT type="submit" value="确定">
</form>
</body>
</html>