【VBS】发邮件

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") = 2
  oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = pMailSmtpServer 'ExChange邮件服务器名
  oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  oMsg.Configuration.Fields.Update

  oMsg.Send
  If Err.Number <> 0 Then
    AddLog ("送信失败：" & Err.Description)
    WScript.Quit -1
  End If
  
  Set oMsg = Nothing
  Set objShell = Nothing
End Sub