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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。