利用VBScript發送郵件,以前從網上找的代碼,不知原來的出處了.也不知作者是何人…..

挺有用的腳本,我就一直在使用這個腳本來發郵件,還可以帶附件.放在這里做個備份,免得到時又找不到了.

目前我就通過批處理配合這個腳本來自動備份我的一些文件到郵箱里面.每天自動定時備份.

反正許多郵件的空間是無限的,,用來作備份也是挺不錯的.一般都可以上傳30-50MB附件,基本上夠用了.

'code by NetPatch

'VBS發送郵件參數說明

'You_Account：你的郵件帳號

'You_Password:你的郵件密碼

'Send_Email: 主要郵件地址

'Send_Email2: 備用郵件地址

'Send_Topic: 郵件主題

'Send_Body:郵件內容

'Send_Attachment:郵件附件

function Send_mail(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

'以下是利用上面的函數發送帶附件的郵件例子

Attachment=wscript.Arguments(0)

Topic="chenall_soft;"+Attachment

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Navigate("about:blank")

Body = objIE.document.parentwindow.clipboardData.GetData("text")

objIE.Quit

set objie=nothing

'set oArgs = wscript.Arguments

'while iIndex < oArgs.Count

'wscript.echo oArgs(iIndex)

' iIndex = iIndex + 1

'wend

If Send_Mail("USERNAME","PASSWORD","sendto","",Topic,Body,Attachment)=True Then

Wscript.Echo "發送成功"

Else

Wscript.Echo "發送失敗"

End If

總結

以上是生活随笔為你收集整理的用vbs往服务器发送文件,[转] Windows 下命令行/VBS脚本,发送带附件邮件.的全部內容，希望文章能夠幫你解決所遇到的問題。

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