Outlook VBA获取日历添加的项目

现在我不能解释太多。这是一件简单的事情，但对我来说很难解决。理想情况下，我希望找到一个适当的事件，当文档添加到日历项时，该事件将触发。之后，我想通过将文档移动到另一个地方（网络共享）来处理该文档。你知道我怎么做吗

为了弄清楚，我打开日历，将word文档从windows资源管理器拖到日历上的某个日期，然后需要处理该事件

以下是我迄今为止尝试过的代码（注意：我正在搜索将触发的事件）：

或者我的outlook帐户有问题，我也必须检查一下

我想找到一个适当的事件，当一个文档被添加到日历项时，该事件将触发

不清楚如何将文档添加到Outlook项目中。是否作为文件附上？或者将共享链接添加到项目中

无论如何，当用户将任何内容附加到Outlook项目时，他们必须选择或打开一个项目，然后将文件附加到该项目。因此，您可以处理

Explorer

类的事件，以了解当前查看或选择的项目。如果有任何文件附加到所选项目，则可以处理将附件添加到父对象实例时发生的事件。添加到项目的

附件

作为参数传递给事件处理程序

你可能会发现这篇文章很有帮助

---

如果您想跟踪日历项目的更改，如添加文档的共享链接，则需要处理在指定集合中的项目更改时触发的事件。

啊，我忘记了最基本的事情-在应用程序\u ItemLoad中设置带有事件变量的事件：

Private Sub Application_ItemLoad(ByVal Item As Object)
    If (TypeOf Item Is AppointmentItem) Then
        Set aaa = Item
    ElseIf (TypeOf Item Is DocumentItem) Then
        Set bbb = Item
    ElseIf (TypeOf Item Is TaskItem) Then
        Set ccc = Item
    ElseIf (TypeOf Item Is JournalItem) Then
        Set ddd = Item
    ElseIf (TypeOf Item Is Items) Then
        Set eee = Item
    ElseIf (TypeOf Item Is Explorer) Then
        Set fff = Item
    End If
End Sub

---

你会考虑更多细节来说明问题的确切所在吗？你有密码吗？您是否尝试过MailItem.AttachmentAdd事件@事实上，除了这个，我没有太多要展示的东西，有几个带断点的事件处理程序，希望其中一个能正常工作。谢谢！顺便说一句，我正在将一个文件从windows资源管理器拖到outlook日历本身。我想这些文件将作为附件添加。

Private Sub Application_ItemLoad(ByVal Item As Object)
    If (TypeOf Item Is AppointmentItem) Then
        Set aaa = Item
    ElseIf (TypeOf Item Is DocumentItem) Then
        Set bbb = Item
    ElseIf (TypeOf Item Is TaskItem) Then
        Set ccc = Item
    ElseIf (TypeOf Item Is JournalItem) Then
        Set ddd = Item
    ElseIf (TypeOf Item Is Items) Then
        Set eee = Item
    ElseIf (TypeOf Item Is Explorer) Then
        Set fff = Item
    End If
End Sub