极客笔记Excel自动提醒发送至邮箱
在工作中，我们经常需要发送Excel文档给同事或客户。为了避免忘记发送文档或者错过发送时间，我们可以通过设置Excel自动提醒并发送至邮箱的功能来提高工作效率。本文将详细介绍如何使用VBA宏代码和Outlook应用程序来实现Excel自动提醒发送文档至邮箱的功能。
步骤一：准备Excel文档
首先，打开你需要发送的Excel文档。确保文档中包含需要发送的数据或内容，并且已经保存好文档。
步骤二：添加VBA宏代码
在Excel文档中，按下Alt + F11快捷键，打开Visual Basic for Applications窗口。在左侧的项目资源管理器中，找到你的工作簿（通常被命名为VBAProject (YourWorkbookName.xlsx)），右键点击该工作簿，选择“插入” -> “模块”来添加一个新模块。
在模块中，粘贴以下VBA宏代码：
Sub SendEmail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "recipient@example.com" '设置收件人邮箱
.Subject = "Excel Document" '设置邮件主题
.Body = "Please find the attached Excel document." '设置邮件正文
.Attachments.Add ActiveWorkbook.FullName '添加附件（当前打开的Excel文档）
.Send '发送邮件
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
在代码中，你需要根据需要修改收件人邮箱（.To属性）、邮件主题（.Subject属性）和邮件正文（.Body属性）。同时，上述代码会将当前打开的Excel文档作为附件发送给收件人。
步骤3：设置定时发送
接下来，我们需要设置Excel文档在特定时间发送邮件。可以通过两种方式实现：一种是在Excel文档打开时自动发送邮件，另一种是通过Windows任务计划设置定时任务。
自动发送邮件
在VBA编辑器中，找到“此工作簿”对象，右键选择“插入” -> “工作簿打开”来添加工作簿打开事件。然后在事件代码中调用上面编写的宏代码SendEmail即可实现在Excel文档打开时自动发送邮件。
设置定时任务
通过Windows任务计划可以设置Excel文档在特定时间自动发送邮件。打开“任务计划程序”（可以在Windows搜索中找到），点击“创建基本任务”，按照向导设置任务名称、触发器时间和操作脚本等信息。在操作脚本中填写Excel文档所在路径及Excel程序路径，如：
- 操作：启动程序
- 程序/脚本：
"C:\Program Files\Microsoft Office\Office16\EXCEL.EXE" - 参数：
"D:\Path\To\Your\Excel\File.xlsx"
步骤四：测试发送邮件
完成以上设置后，可以测试是否成功发送邮件。依次打开Excel文档（若选择自动发送邮件方式）或者等待定时任务触发，查看邮件是否发送成功。如果一切正常，那么你已经成功设置Excel自动提醒发送至邮箱的功能了！
通过以上步骤，我们可以实现Excel文档的自动发送至邮箱提醒功能，便于工作中及时发送重要文档，提高工作效率。