VSTO Outlook：如何检测邮件在资源管理器视图中被移动？

• 使用Folder.BeforeItemMove事件
  这是最直接的解决方案，Outlook的Folder对象自带BeforeItemMove事件，会在邮件（或其他Outlook项目）被移动到另一个文件夹，或是被删除时触发。你可以在事件处理逻辑里判断目标文件夹是否为正常文件夹（排除删除操作），进而执行自定义操作。

  以下是VBA实现示例：

  1. 先创建一个类模块（命名为clsFolderMonitor），写入代码：

  Public WithEvents objFolder As Outlook.Folder
  
  Private Sub objFolder_BeforeItemMove(ByVal Item As Object, ByVal MoveTo As MAPIFolder, Cancel As Boolean)
      ' 排除删除操作（MoveTo为Nothing时代表移至已删除邮件文件夹）
      If Not MoveTo Is Nothing Then
          ' 这里替换成你的自定义操作，比如记录日志、修改邮件属性等
          MsgBox "邮件 '" & Item.Subject & "' 已被移动到文件夹 '" & MoveTo.Name & "'"
      End If
  End Sub
  

  2. 在标准模块中初始化文件夹监视：

  Dim colFolders As New Collection
  
  Sub SetupFolderMonitoring()
      Dim objNS As Outlook.NameSpace
      Dim objWatchFolder As Outlook.Folder
      Dim clsMonitor As clsFolderMonitor
  
      Set objNS = Application.GetNamespace("MAPI")
      ' 这里以监视收件箱为例，可替换为你需要的目标文件夹
      Set objWatchFolder = objNS.GetDefaultFolder(olFolderInbox)
      Set clsMonitor = New clsFolderMonitor
      Set clsMonitor.objFolder = objWatchFolder
      colFolders.Add clsMonitor
  
      ' 如需监视多个文件夹，重复上述步骤添加即可
  End Sub
  

• 关键注意事项

  • 事件只对你主动监视的文件夹生效，若要覆盖多个文件夹，需为每个文件夹创建对应的事件监听器。
  • VBA环境下，必须用全局变量（比如示例中的colFolders）持有类模块实例，否则实例会被系统回收，导致事件失效。
  • 如果用C#/VB.NET等语言通过COM互操作开发，逻辑类似：绑定Folder.BeforeItemMove事件处理方法，同时保持对Folder对象的引用以避免被垃圾回收。

内容的提问来源于stack exchange，提问作者Willy