VBS發送郵件-1

時間 2019-11-18

標籤 vbs 發送郵件简体版

原文原文鏈接

Set objMail = Server.CreateObject("CDO.Message") 服務器

Set objCDOSYSCon = Server.CreateObject("CDO.Configuration") 測試

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") =2網站

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "smtp.163.com" '郵件服務器server

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25io

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10配置

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1date

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""'用戶名密碼

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""'密碼im

objCDOSYSCon.Fields.Update word

Set objMail.Configuration = objCDOSYSCon

''系統配置結束
objMail.From = ""''發送人

objMail.Subject = "網站客戶提交信息" ''標題

objMail.To = ""''收件人

objMail.HtmlBody ="發送內容測試"'發送內容。

objMail.Send

Set objMail = Nothing

Set objCDOSYSCon = Nothing

相關標籤/搜索

每日一句

每一个你不满意的现在，都有一个你没有努力的曾经。