Outlook 插件开发：获取Explorer.SelectionChange事件中的上一封选中邮件

要实现你需要的功能，核心思路是通过全局变量持久存储上一次的选中邮件对象，在SelectionChange事件触发时，先读取这个变量拿到上一次的选中项，再更新变量为当前选中的新对象。

具体实现步骤及代码 #

1. 打开Outlook的VBA编辑器（按Alt + F11），找到ThisOutlookSession模块
2. 写入以下代码：

' 全局变量：存储上一次选中的邮件对象
Private prevSelectedMail As MailItem

Private Sub Application_ExplorerSelectionChange(ByVal Sel As Selection)
    ' 读取并使用上一次选中的邮件对象
    If Not prevSelectedMail Is Nothing Then
        ' 这里替换成你实际需要的操作，比如打印主题、处理邮件内容等
        Debug.Print "上一次选中的邮件主题：" & prevSelectedMail.Subject
    End If
    
    ' 更新全局变量为当前选中的邮件（处理单个选中场景）
    On Error Resume Next ' 避免选中非邮件对象时触发错误
    Set prevSelectedMail = Sel.Item(1)
    On Error GoTo 0
End Sub

关键说明 #

• 错误处理：添加On Error Resume Next是为了兼容选中日历、联系人等非邮件类型的场景，避免代码报错
• 多选场景适配：如果需要支持多选，可以将全局变量改为Private prevSelection As Selection，在事件中先保存上一次的Selection集合，再更新为当前集合
• 首次触发处理：第一次打开Outlook或切换到收件箱时，prevSelectedMail为Nothing，所以需要用If Not...判断避免空引用错误

场景验证 #

1. 选中「邮件1」时，prevSelectedMail会被设置为「邮件1」
2. 切换选中「邮件2」时，事件会先读取到prevSelectedMail对应的「邮件1」，再将变量更新为「邮件2」

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