Jmail发邮件代码

按照下面的说明调用SendMail函数！ 

Jmail 4.4.0 Free Edition可以到这里下载http://dev.mo.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

%>