function Send_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment) 'code by NetPatch 'VBS發送郵件參數說明 'You_Account：你的郵件帳號 'You_Password:你的郵件密碼 'Send_Email: '主要郵件地址 'Send_Email2: 備用郵件地址 'Send_Topic: '郵件主題 'Send_Body: '郵件內容 'Send_Attachment:郵件附件 You_ID=Split(You_Account, "@", -1, vbTextCompare) '帳號和服務器分離 MS_Space = "http://schemas.microsoft.com/cdo/configuration/" '這個是必須要的，不過可以放心的事，不會通過微軟發送郵件 Set Email = CreateObject("CDO.Message") Email.From = You_Account '這個一定要和發送郵件的帳號一樣 Email.To = Send_Email '主要郵件地址 If Send_Email2 <> "" Then Email.CC = Send_Email2 '備用郵件地址 End If Email.Subject = Send_Topic '郵件主題 Email.Textbody = Send_Body '郵件內容 If Send_Attachment <> "" Then Email.AddAttachment Send_Attachment '郵件附件 End If With Email.Configuration.Fields .Item(MS_Space&"sendusing") = 2 '發信端口 .Item(MS_Space&"smtpserver") = "smtp."&You_ID(1) 'SMTP服務器地址 .Item(MS_Space&"smtpserverport") = 25 'SMTP服務器端口 .Item(MS_Space&"smtpauthenticate") = 1 'cdobasec .Item(MS_Space&"sendusername") = You_ID(0) '你的郵件帳號 .Item(MS_Space&"sendpassword") = You_Password '你的郵件密碼 .Update End With Email.Send '發送郵件 Set Email=Nothing '關閉組件 Send_Mail=True '如果沒有任何錯誤信息，則表示發送成功,否則發送失敗 If Err Then Err.Clear Send_Mail=False End If End Function '以下是利用上面的函數發送帶附件的郵件例子 If Send_Mail("sss852@163.com","xxxxxx","other@qq.com","","郵件主題","Some code from vbs","")=True Then Wscript.Echo "發送成功" Else Wscript.Echo "發送失敗" End If

總結

以上是生活随笔為你收集整理的vbs发送邮件(win10环境下成功)的全部內容，希望文章能夠幫你解決所遇到的問題。

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