在日常的工作和生活中，我们经常需要处理各种重复性的任务，比如定时发送报告、通知等。手动操作不仅耗时费力，还容易出错。为了简化这一过程，我们可以利用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系统下实现自动化发送邮件的功能，极大地提高了工作效率。希望这个简单的教程对你有所帮助！
