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

Jmail 发送邮件的例子1

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


<%if request("action")="send" then%>
<%

'参数说明
'Subject : 邮件标题
'MailAddress : 发件服务器的地址,如smtp.163.com
'Email : 收件人邮件地址
'Sender : 发件人姓名
'Content : 邮件内容
'Fromer : 发件人的邮件地址

Sub SendAction(subject, email, sender, content)
 Set JMail = Server.CreateObject("JMail.Message")
 JMail.Charset = "gb2312" ' 邮件字符集,默认为"US-ASCII"
 JMail.From = strMailUser ' 发送者地址
 JMail.FromName = sender' 发送者姓名
 JMail.Subject =subject
 JMail.MailServerUserName = strMailUser' 身份验证的用户名
 JMail.MailServerPassword = strMailPass ' 身份验证的密码
 JMail.Priority = 3
 JMail.AddRecipient(email)
 JMail.Body = content
 JMail.Send(strMailAddress)
End Sub

'调用此Sub的例子
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = Request("title")
strContent = "用户Email:" & Request("From") & VbCrLf & "电话:" & Request("Tel") & VbCrLf & "内容:" & vbcrlf & Request("content")
strSender  = Request("Name")
strEmail = "anybody@163.com" '这是收信的地址,可以改为其它的邮箱
strMailAddress = "mail.yourdomain.com" '我司企业邮局地址,请使用 mail.您的域名
strMailUser  = "user@yourdomain.com" '我司企业邮局用户名
strMailPass  = "mailpassword" '邮局用户密码

Call SendAction (strSubject,strEmail,strSender,strContent)

%>


<%else%>




发邮件给我们
















邮件主题(title)*

姓名(name)

你的邮箱(mailaddress)*

电话(tel)
内容(content):*

  value="提交">

<%end if%>


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