VBA Outlook 事件移动电子邮件

Question

我寻找一种方法来获取 Outlook 中移动项目/电子邮件的事件。

我们可以使用 Inspector 吗？或者可能有一个事件处理程序，如 itemsent 或 newmail？

谢谢

---

更多详情:

我有 4 个或更多邮箱。每个都有 X 个文件夹和子文件夹(其中 1 个是一个包含数百万个文件夹的实时链接框)。有的是普通箱子，有的人拖着普通的邮件。

每次在 livelink box 的文件夹上移动邮件时，我都想捕获。

Answer 1

当一个项目被添加到集合中的文件夹中时，会触发一个事件。例如，假设您有一个名为“Stuff”的文件夹，比您的默认收件箱低一级。每次将电子邮件移至该文件夹时都会触发此代码:

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim olApp As Outlook.Application

  Set olApp = Outlook.Application
  Set Items = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Stuff").Items
End Sub

Private Sub Items_ItemAdd(ByVal item As Object)

  On Error GoTo ErrorHandler

  MsgBox "You moved an item into the 'Stuff' folder."

ProgramExit:
  Exit Sub
ErrorHandler:
  MsgBox Err.Number & " - " & Err.Description
  Resume ProgramExit
End Sub

Function GetNS(ByRef app As Outlook.Application) As Outlook.NameSpace
  Set GetNS = app.GetNamespace("MAPI")
End Function

将其粘贴到 ThisOutlookSession 中并重新启动 Outlook。每当将电子邮件移至该文件夹时，您都会看到弹出窗口。