asp开发学校OA项目中常用到知识点（6）邮件通知

在公文流程中,实现邮件通知是一个方法,也可以通过短信，MSN，QQ，等通知的方式，今天就介绍一下，今天摸索的使用邮件通知的办法。

'查出刚提交的意见建议的内容
set RID = conn.Execute("select top 1 id from weixiu where qname = '"&qname&"' order by atime DESC ")
'查出要意见建议发往对象的电子邮件地址
set RSEmails = conn.Execute("Select top 1 email from admin where deptype='"&bumen&"'")
'构造电子邮件的内容
EmailMessage = "维修申请来自: " & qname & chr(13)&chr(10)
EmailMessage = EmailMessage & "
维修内容: " & intro & chr(13)&chr(10)
EmailMessage = EmailMessage & "
如果要审核这个申请，请您点击下面的链接:
" & chr(13)&chr(10)
EmailMessage = EmailMessage & "http://192.168.100.8/"    
EmailMessage = EmailMessage & "dianjiaoweixiuedit.asp?id="& RID("id")

Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient RSEmails("email") '邮件收件人的地址
jmail.From = "yongchuang@126.com" '发件人的E-MAIL地址
jmail.MailServerUserName = "yongchuang@126.com" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "邮件的密码" '登录邮件服务器所需的密码
jmail.Subject = "维修申请" '邮件的标题
jmail.Body = EmailMessage '邮件的内容
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("smtp.126.com") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
response.write "已经有一封邮件到主任邮箱通知审核"
      
set rs = nothing
%>

<%
response.Write  "
"
response.Write("添加数据成功")
%>

...........................................................................................

以下是搜集jmail组件的使用方法
...........................................................................................


ASP+Jmail 4.4发送邮件代码:
<%  
Set jmail = Server.CreateObject("JMAIL.Message") ’建立发送邮件的对象  
jmail.silent = true ’屏蔽例外错误，返回FALSE跟TRUE两值j  
jmail.logging = true ’启用邮件日志  
jmail.Charset = "GB2312" ’邮件的文字编码为国标  
jmail.ContentType = "text/html" ’邮件的格式为HTML格式  
jmail.AddRecipient "friend@blueidc.cn" ’邮件收件人的地址  
jmail.From = "user@blueidc.cn" ’发件人的E-MAIL地址  
jmail.MailServerUserName = "user" ’登录邮件服务器所需的用户名  
jmail.MailServerPassword = "password" ’登录邮件服务器所需的密码  
jmail.Subject = "Aspid Jmail Test" ’邮件的标题  
jmail.Body = "Aspid Jmail sender ok !" ’邮件的内容  
jmail.Priority = 1 ’邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值  
jmail.Send("smtp.blueidc.cn") ’执行邮件发送（通过邮件服务器地址）  
jmail.Close() ’关闭对象  
response.write "Send email ok!"  
%>

下面是详细的ASP代码，适合ASP调用:

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

  Sub SendAction(subject,mailaddress,email,sender,content,fromer)  

Dim JMail,contentId  
Set JMail = Server.CreateObject("JMail.Message")  
JMail.Charset = "gb2312" ’ 邮件字符集，默认为"US-ASCII"  
’ JMail.ISOEncodeHeaders = False ’ 是否进行ISO编码，默认为True  

’ 发送者信息（可用变量方式赋值）  
JMail.From = fromer ’ 发送者地址  
JMail.FromName = sender ’ 发送者姓名  
JMail.Subject = subject ’ 邮件主题  

’ 身份验证  
JMail.MailServerUserName = "mail@blueidc.cn" ’身份验证的用户名  
JMail.MailServerPassword = "******" ’ 身份验证的密码  

’ 设置优先级，范围从1到5，越大的优先级越高，3为普通  
JMail.Priority = 3  

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")  

’ 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个  
FriendEmail=email ’接收人邮件地址  
JMail.AddRecipient(FriendEmail)  

’ 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_机器名有访问的权限】  
’ 【参数设置是(True)否(False)为Inline方式】  
’contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)  

’ 邮件主体（HTML(注意信件内链接附件的方式)）  
MailBody = MailBody & ""  
MailBody = MailBody & content  
MailBody = MailBody & ""  
JMail.HTMLBody = MailBody  

’ 邮件主体（文本部分）  
JMail.Body = content  

’ 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】  
’ 发送邮件的服务器  
JMail.Send(mailaddress)  

’ 关闭并清除对象  
JMail.Close()  
Set JMail = Nothing  
  End Sub  
    
  ’调用此Sub的例子  
  Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer  
  strSubject             = "这是一封用JMAIL发送的测试邮件"  
  strContent            = "JMail组件发送测试成功！"  
  strEmail                  = "user@163.com"  
  strFromer               = "mail@blueidc.cn"  
  strMailAddress   = "smtp.mail.sogou.com"  
  strSender             = "邮件发送者"  

  Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)  

上一篇: asp开发学校OA项目中常用到知识点（5）数据导出
下一篇: asp开发学校OA项目中常用到知识点（7）FTP
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: