JMail发邮件

' ================================================
' 函数：SendMail(mailTo,mailFrom,title,content)
' 功能：使用微软的默认组件CDONTS 发送邮件
' 参数：MailTo 客户邮箱地址
' 参数：MailFrom 我的邮箱地址
' 参数：Title 邮件标题
' 参数：Content 邮件内容
' 参数：sysMailServic 邮件服务器
' ================================================
call SendMail("","","按时的按时按时按时","内容","smtp.qq.com")
response.Write("发送成功！")

Function SendMail(MailTo,MailFrom,Title,Content,sysMailServic)
'On Error Resume Next
Dim Jmail
    If Not IsObjInstalled("JMail.Message") Then
' SendMail=False
' Exit Function
Else
   Set Jmail = Server.CreateObject("JMail.Message")   '建立发送邮件的对象
   With Jmail
    .silent = true    '屏蔽例外错误，返回FALSE跟TRUE两值
    .logging = true   '启用邮件日志
    .Charset = "gb2312"     '邮件的文字编码为国标
    .ContentType = "text/html"    '邮件的格式为HTML格式
    .AddRecipient MailTo     '邮件收件人的地址
    .From = MailFrom   '发件人的E-MAIL地址
    .MailServerUserName = ""     '登录邮件服务器所需的用户名
    .MailServerPassword = "xxxxxxx"     '登录邮件服务器所需的密码
    .Subject = Title    '邮件的标题
    .Body = Content      '邮件的内容
    .Priority = 1      '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
   End With
   Jmail.Send(sysMailServic)     '执行邮件发送（通过邮件服务器地址）
   Jmail.Close()   '关闭对象
End If

If Err Then
   SendMail=False
   Err.Clear
Else
   SendMail=True
End If

' If Not IsObjInstalled("CDONTS.NewMail") Then Exit Function
' Dim objCDOMail
' Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
' With objCDOMail
'   .From =MailFrom
'   .To =MailTo
'   .Subject =Title
'   .Body =Content
'   .BodyFormat = 0
'   .MailFormat = 0
'   .Send
' End With
' Set objCDOMail = Nothing
End Function

Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function