Jmail发邮件代码(测试成功)  

按照下面的说明调用SendMail函数！  
Jmail 4.4.0 Free Edition可以到这里下载http://blog.ii-home.cn/detial.asp?id=60(注册方法,拷贝jmail.dll到system32文件夹,开始-运行-输入regsvr32 jmail.dll-确定)  



<%
'按照下面方法调用
response.write SendMail("发邮件服务器，例smtp.126.com","你的登陆帐号","你的登陆密码","邮件标题","收件人地址","发件人姓名","邮件内容","发件人邮箱地址")

'****************************************************
    '参数说明
      'Subject     : 邮件标题
      'MailAddress : 发件服务器的地址,如smtp.163.com
      'LoginName     ----登录用户名(不需要请填写"")
      'LoginPass     ----用户密码(不需要请填写"")
      'Email       : 收件人邮件地址
      'Sender      : 发件人姓名
      'Content     : 邮件内容
      'Fromer      : 发件人的邮件地址
    '****************************************************
      Public Function SendMail(MailAddress, LoginName, LoginPass, Subject, Email, Sender, Content, Fromer)
       On Error Resume Next
        Dim JMail
          Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
            jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
            jmail.Charset = "GB2312" '邮件的文字编码为国标
            jmail.ContentType = "text/html" '邮件的格式为HTML格式
            jmail.AddRecipient Email '邮件收件人的地址
            jmail.From = Fromer '发件人的E-MAIL地址
            jmail.FromName = Sender
              If LoginName <> "" And LoginPass <> "" Then
                JMail.MailServerUserName = LoginName '您的邮件服务器登录名
                JMail.MailServerPassword = LoginPass '登录密码
              End If
            jmail.Subject = Subject '邮件的标题  
            JMail.Body = Content
            JMail.Priority = 1'邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
            jmail.Send(MailAddress) '执行邮件发送（通过邮件服务器地址）
            jmail.Close() '关闭对象
        Set JMail = Nothing
        If Err Then
            SendMail = Err.Description
            Err.Clear
        Else
            SendMail = "邮件发送完毕!"
        End If
      End Function
%>

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: JmailJmail
相关日志: