首页 行业网站建设方案 Jmail 发送邮件的例子2

Jmail 发送邮件的例子2

来源:网企网站建设 | 时间:2020-10-30 | 浏览:3212

<%@ 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
%>



与我司联系



<%=msg%>

您的姓名:



电子邮件:



联系方式:



文章主题:



文章正文:



value="确定">


TAG:深圳龙岗外贸邮箱
相关案例
泰基(深圳)保安服务有限公司 泰基(深圳)保安服务有限公司隶属于深圳泰基集团,经广东省公安厅和深圳市公安局依法批准设立。公司注册资本1000万元,具备独立法人资格,主营安保服务相关业务,服务范围主要包括且不限于:门卫、巡逻、守护、随身护卫、安全检查、秩序维护、安全技术防范、安全评估、智能安防技术开发等。
湖南吉通铝业有限责任公司, 吉通铝业现有湖南吉通铝业有限责任公司,吉通(天津)科技有限公司两个生产基地,占地总面积 160 亩。承接各类幕墙、门窗制作安装工程。生产氟碳和粉末喷涂铝单板(铝装饰板)及各类金属系统产品。
深圳市知行合一太极文化有限公司 太极拳是我国的武术瑰宝,练习太极拳不仅可以修身养性,还可以防身自卫。当然练习太极拳不仅对身体功能的好处,主要更是教你学做人,修身养性舍己从人,与人为善,宽容大度,淡泊名利,做人要留有余地等做人道理。所以太极拳是现代人最佳的养生方式。
深圳市展跃家具有限公司 深圳市展跃家具有限公司隶属强力家私(深圳)有限公司,是其旗下全资子公司;因业务发展需要,于1998年成立强力床垫事业部,专注出口业务,产品远销欧美数十个国家和地区;为开发国内市场,注册成立“深圳市展跃家具有限公司”及“VOSTRO华丝达”品牌。