您所在的位置:小祥子 » 编程 » ASP » 正文

ASP中JMail发送邮件示例代码

时间:2015-01-17 编辑:佚名 来源:互联网

首先要确保你的服务器安装了JMail组件,然后可以使用以下代码了。

代码如下

'参数:发送邮件SMTP服务器, 发件人邮箱地址, 发件人姓名, 发送邮件服务器登录名, 发送邮件服务器登录密码, 接收人邮件地址, 邮件标题, 邮件内容
Function SendMail_JMail(s_SMTPServer, s_FromMail, s_FromName, s_MailServerUserName, s_MailServerPassword, s_ToEmail, s_Subject, s_Body)
    On Error Resume Next
    Set jmail = Server.CreateObject("JMAIL.Message")   '建立发送邮件的对象
    If Err.Number <> 0 Then
        SendMail_JMail = 1
        Exit Function
    End If

    jmail.silent = True    '屏蔽例外错误,返回FALSE跟TRUE两值
    jmail.logging = False   '启用邮件日志
    jmail.Charset = "GB2312"     '邮件的文字编码为中文
    jmail.ISOEncodeHeaders = False '防止邮件标题乱码
    jmail.ContentType = "text/html"    '邮件的格式为HTML格式
    jmail.AddRecipient s_ToEmail    '邮件收件人的地址
    jmail.From = s_FromMail  '发件人的E-MAIL地址
    jmail.FromName = s_FromName   '发件人姓名
    jmail.MailServerUserName = s_MailServerUserName    '登录邮件服务器所需的用户名
    jmail.MailServerPassword = s_MailServerPassword     '登录邮件服务器所需的密码
    jmail.Subject = s_Subject    '邮件的标题
    jmail.Body = s_Body      '邮件的内容
    jmail.Priority = 1      '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
    jmail.Send(s_SMTPServer)     '执行邮件发送(通过邮件服务器地址)
    jmail.Close()   '关闭对象
   
    If jmail.ErrorCode <> 0 Then
        SendMail_JMail = 2
    Else
        SendMail_JMail = 0
    End If

End Function

关键词:Jmail