Outlook中的定期电子邮件，全自动且无用户交互

Question

我一直在尝试找出如何在MS Outlook 2016中执行以下操作

• 每周发送一封预先填充的电子邮件，其中包含体内的更新日期
• 电子邮件具有更新的.pptx文件（目录可以是静态的）
• 可以为应用程序运行打开Outlook，但最好不要打开
• 除了更新目录中的.pptx外，没有用户交互作用

我使用下面的宏，现在它依赖于取消与日历通知相关的通知以发送电子邮件（无论通知设置为无）。

有人做过类似的事情/提供建议吗？

Private Sub Application_Reminder(ByVal Item As Object)
Dim MItem As MailItem
Set MItem = Application.CreateItem(olMailItem)
If Item.MessageClass <> "IPM.Appointment" Then Exit Sub
If Item.Categories <> "Send_att_recurring_email" Then Exit Sub
MItem.To = "user@gmail.com"
MItem.CC = "otherUser@gmail.com"

MItem.Subject = Item.Subject
MItem.Body = Item.Body
With MItem
.Attachments.Add "<C:\Desktop\Documents\Agenda.docx>"
.Display

End With