【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") =
   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