在日常的工作和生活中，我們經常需要處理各種重復性的任務，比如定時發送報告、通知等。手動操作不僅耗時費力，還容易出錯。為了簡化這一過程，我們可以利用Windows下的批處理文件（BAT）結合VBS腳本來實現自動發送郵件的功能。
一、準備工作
首先，確保你的電腦已經安裝了支持SMTP協議的郵件服務。例如，可以使用Gmail或其他支持SMTP的郵箱服務。同時，你需要獲取以下信息：
- 郵箱賬號及密碼
- SMTP服務器地址
- 端口號
二、編寫BAT腳本
1. 創建一個新的文本文件，并將其重命名為`sendmail.bat`。
2. 編輯該文件，輸入以下
```bat
@echo off
cscript //nologo sendmail.vbs
```
這段代碼的作用是調用后續創建的VBS腳本來執行發送郵件的任務。
三、編寫VBS腳本
1. 創建另一個文本文件，并將其命名為`sendmail.vbs`。
2. 編輯該文件，輸入以下
```vbscript
Const cdoSendUsingPort = 2
Const cdoBasic = 1
Set objConfig = CreateObject("CDO.Configuration")
With objConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your_email@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your_password"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Update
End With
Set objMessage = CreateObject("CDO.Message")
With objMessage
Set .Configuration = objConfig
.From = "your_email@gmail.com"
.To = "recipient_email@example.com"
.Subject = "Test Email from BAT Script"
.TextBody = "This is a test email sent automatically using BAT and VBS scripts."
.Send
End With
```
請將上述腳本中的`your_email@gmail.com`替換為你的實際郵箱地址，`your_password`替換為你的郵箱密碼，`recipient_email@example.com`替換為你想要發送的目標郵箱地址。
四、運行腳本
保存所有修改后，雙擊`sendmail.bat`文件即可運行腳本，自動發送測試郵件。
五、注意事項
- 確保你的郵箱服務商允許通過SMTP發送郵件，有些郵箱可能需要額外的安全設置。
- 如果你使用的是Gmail，建議啟用“應用專用密碼”以提高安全性。
- 為了保護隱私，建議不要在腳本中直接存儲敏感信息，可以考慮使用環境變量或加密方式來管理這些數據。
通過以上步驟，你可以輕松地在Windows系統下實現自動化發送郵件的功能，極大地提高了工作效率。希望這個簡單的教程對你有所幫助！
