如何实现Outlook关闭邮件窗口时询问移动邮件至指定文件夹的宏？

核心问题说明 #

1. Outlook并没有Application_ItemClose事件，要监听邮件窗口关闭动作，需要使用Inspector对象的Close事件——每个邮件窗口对应一个Inspector实例。
2. 邮件打开后会被立即标记为已读，所以关闭窗口时直接判断Item.UnRead会得到False，必须在窗口打开的瞬间记录初始未读状态。

完整实现代码 #

将以下代码粘贴到Outlook的ThisOutlookSession模块中：

' 全局变量：跟踪打开的Inspector窗口和对应邮件的初始未读状态
Dim WithEvents colInspectors As Outlook.Inspectors
Dim mailUnreadStatus As New Scripting.Dictionary

Private Sub Application_Startup()
    Set colInspectors = Application.Inspectors
End Sub

' 新邮件窗口打开时触发，记录初始未读状态
Private Sub colInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim mailItem As Outlook.MailItem
    If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then
        Set mailItem = Inspector.CurrentItem
        ' 用窗口的HWND作为唯一标识，存储初始未读状态
        mailUnreadStatus(Inspector.hwnd) = mailItem.UnRead
    End If
End Sub

' 邮件窗口关闭时触发
Private Sub colInspectors_InspectorClose(ByVal Inspector As Inspector)
    Dim mailItem As Outlook.MailItem
    Dim initialUnread As Boolean
    
    If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then
        Set mailItem = Inspector.CurrentItem
        
        ' 取出之前记录的初始未读状态
        If mailUnreadStatus.Exists(Inspector.hwnd) Then
            initialUnread = mailUnreadStatus(Inspector.hwnd)
            ' 移除字典中的记录，避免内存冗余
            mailUnreadStatus.Remove Inspector.hwnd
            
            ' 仅当初始状态为未读时，提示移动邮件
            If initialUnread Then
                Dim moveFolder As Outlook.Folder
                Set moveFolder = Application.Session.PickFolder
                
                If Not moveFolder Is Nothing Then
                    mailItem.Move moveFolder
                End If
            End If
        End If
    End If
End Sub

关键细节说明 #

• 添加脚本字典引用：在VBA编辑器中，通过工具 -> 引用勾选Microsoft Scripting Runtime，才能使用Scripting.Dictionary来存储多窗口的未读状态。
• 初始状态记录逻辑：邮件窗口打开瞬间就保存当时的UnRead值，用窗口的HWND作为唯一键，避免多窗口打开时状态混淆。
• 事件绑定：Application_Startup会在Outlook启动时将colInspectors与应用的Inspectors集合绑定，确保能捕获所有邮件窗口的打开和关闭事件。

使用步骤 #

1. 打开Outlook，按Alt + F11打开VBA编辑器。
2. 左侧导航栏找到ThisOutlookSession并双击打开。
3. 粘贴上述代码，添加Microsoft Scripting Runtime引用（工具->引用，找到后勾选）。
4. 保存宏，重启Outlook。
5. 打开一封未读邮件，关闭窗口时会弹出文件夹选择框，选择后邮件将被移动到目标文件夹。

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