Sub SendMail(pMailFrom, pMailTo, pSubject, pMailBody, pMailSmtpServer)

   On Error Resume Next

   Dim objShell

   Dim oMsg

   Set objShell = CreateObject("Wscript.Shell")

   Set oMsg = CreateObject("CDO.Message")

   oMsg.From = pMailFrom & " <" & pMailFrom & ">"  '送信人

   oMsg.To = pMailTo & " <" & pMailTo & ">"        '收件人

   oMsg.Subject = pSubject                         '标题

   oMsg.HtmlBody = pMailBody                       '邮件正文（HTML格式）

   'oMsg.TextBody = pMailBody                       '邮件正文（文本格式）

   oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =

   oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = pMailSmtpServer 'ExChange邮件服务器名

   oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =

   oMsg.Configuration.Fields.Update

   oMsg.Send

   If Err.Number <>  Then

     AddLog ("送信失败：" & Err.Description)

     WScript.Quit -

   End If

   Set oMsg = Nothing

   Set objShell = Nothing

 End Sub