我想在每次触发重复提醒时发送电子邮件。
我使用的VBA代码来自https://www.slipstick.com/developer/send-email-outlook-reminders-fires/
我所做的唯一更改是将.BCC设置为我的电子邮件地址(此帖子中未显示(。
我不知道如何判断代码是否执行，或者它是否执行但没有执行我想要的操作。有没有办法知道它是否执行？
问题的附加说明
我使用alt-F11来获取我的VBA代码。当我尝试将其作为宏访问时，它不会显示
我的代码用于在触发提醒时运行
我尝试了多种方法来运行我的代码。
我想附上屏幕截图，但我不知道怎么做。
我在这两个地方都有我的VBA代码：
Project 1(VbaProject.OTM(-Microsoft Outlook Objects–ThisOutlookSession
项目1(VBA Project.OTM(–Modules–Module1
文件>选项>加载项显示"活动应用程序加载项"中的"Microsoft VBA for Outlook加载项">
但是，当我转到"开发人员"选项卡>Com加载项"Microsoft VBA for Outlook加载项"未列出
在那个屏幕上，我单击"添加"，并从以下文件夹中选择OUTLVBA.DLL：C:\Program Files(x86(\Microsoft Office\root\Office16\ADDNS尝试添加它。我收到了以下错误消息：
"'C:\Program Files(x86(\Microsoft Office\root\Office16\ADDINS\OUTLVBA.DLL'不是有效的Office加载项。">
"开发人员"选项卡中未列出"Microsoft VBA for Outlook加载项">禁用项目
我已转到"开发人员"选项卡>宏观安全。我尝试了第四个选项(启用所有宏(，但它仍然不起作用，所以我将其设置回选项2(数字签名的通知…(。这是我以前运行代码时所做的。
当我转到"开发人员"选项卡>宏>宏并创建一个小宏，然后单击Run，我得到这样的消息：
"此项目中的宏被禁用。请参阅主机应用程序的联机帮助或文档，以确定如何启用宏。">
我都单击了"帮助"并在谷歌上搜索过，但没有找到如何启用宏。
Private Sub Application_Reminder(ByVal Item As Object)
Dim objMsg As MailItem
'IPM.TaskItem to watch for Task Reminders
If Item.MessageClass <> "IPM.Appointment" Then
Exit Sub
End If
If Item.Categories <> "Send Mail" Then
Exit Sub
End If
Set objMsg = Application.CreateItem(olMailItem)
With objMsg
.To = Item.Location
.BCC = "xxx@centurylink.net"
.Subject = Item.Subject
.Body = Item.Body
.Send
End With
Set objMsg = Nothing
End Sub
- 检查邮件是否在"已发送邮件"文件夹中
- 在
Application_Reminder事件处理程序的开头添加一行MsgBox "Test"