asp Jmail发送邮件的示例2

把以下全部代码内容保存为jmail.asp文件,里面的邮箱信息修改为自己的即可

<%@ Language=VBScript %>

<%

'==================================================

' 参 数 设 置

'==================================================

'修改收信人电子邮件地址,表单里的内容将发送到这个信箱中

myemail ="test@test.com"

'修改收信人姓名

myname ="我的公司"

'修改SMTP服务器

smtpserver ="smtp.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

%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>与我司联系</title>
</head>
<style type="text/css">
<!--
body,input,textarea{font-size: 12px}
-->
</style>
<body>
<form action=jmail.asp><%=msg%>
<br>您的姓名:
<br><input name=T1 size=29>
<br>电子邮件:
<br><input name=T2 size=29>
<br>联系方式:
<br><input name=T3 size=29>
<br>文章主题:
<br><input name=T4 size=29>
<br>文章正文:
<br><textarea rows=6 cols=28 name=T5>
</textarea>
<br><input type="submit" value="确定">
</form>
</body></html>


编辑:west263
日期:2006-05-12

收藏 】 【 打印 】   
您可对文档进行评分哟~

勾选遇到的问题提交给我们,收到反馈后保证及时修正更新!

提交反馈需要先登陆会员帐号

上一篇:Jmail 发送邮件的例子1
下一篇:我的流量不够用,能否只升级流量,不升级空间呢?流量价格多少?
若文档内容对您没有帮助,不能解决问题? 您还可以 咨询在线客服提交工单搜索常见问题 ,我们将竭诚为您服务。
  >> 相关文章
 
分享至:
Top

24小时客服热线

400-028-5800

028-62778877

您好,非正常上班时间若有紧急技术问题,请拨总机后按7号键, 其他问题请提交工单或在上班时间联系,谢谢支持!