'--------------------------------------------------------------------------------- '函數名稱 : SendMail '函數功能 : 自動發送郵件功能 '函數輸入 : SendTo----收件人，多個收件人可使用";"隔開 ' MailTopic----郵件主題 ' MailBody----郵件內容,此處內容格式為Html ' MailAttachment---郵件附件，多個附件可使用";"隔開 '函數輸出 : Boolean,郵件是否發送成功 '--------------------------------------------------------------------------------- Function SendMail(SendFrom,Password,SendTo,MailTopic,MailBody,MailAttachment) On error resume nextMS_Space = "http://schemas.microsoft.com/cdo/configuration/"Set Email = CreateObject("CDO.Message") Email.BodyPart.Charset = "GBK"Email.From = SendFromEmail.To = SendToEmail.Subject = MailTopic Email.Htmlbody = MailBody If MailAttachment <> "" ThenFor i=0 to Ubound(Split(MailAttachment,";"))Email.AddAttachment Split(MailAttachment,";")(i) NextEnd IfWith Email.Configuration.Fields .Item(MS_Space&"sendusing") = 2 .Item(MS_Space&"smtpserver") = "smtp."&Split(SendFrom,"@",-1, vbTextCompare)(1).Item(MS_Space&"smtpserverport") = 25 .Item(MS_Space&"smtpauthenticate") = 1 .Item(MS_Space&"sendusername") =Split(SendFrom,"@",-1,vbTextCompare)(0).Item(MS_Space&"sendpassword") = Password.Update End WithErr.clearEmail.Send If Err.number<>0 ThenSendMail=FalseElseSendMail=TrueEnd IfSet Email=Nothing End Function

?

轉載于:https://www.cnblogs.com/Areas/archive/2012/10/22/2733448.html

總結

以上是生活随笔為你收集整理的VBS 自动发送邮件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。