如何通过VBA实现Outlook已打开窗口的循环切换？

我懂你想要的效果——就像Excel里切换工作表那样，快速循环切换所有打开的邮件窗口（不管是未发送的草稿还是用作参考的已读邮件），之前你在Excel里用PreviousSheet和NextSheet宏实现了工作表循环，现在想在Outlook里复刻这个功能对吧？

你测试的代码思路是对的，确实要通过Inspectors集合来遍历打开的窗口，但缺了两个关键点：循环逻辑的处理，以及窗口焦点的设置。Outlook对象模型本身没有直接设置窗口焦点的方法，得借助Windows API来搞定。

下面是完整的实现代码，和你Excel里的宏逻辑一致，支持向前/向后循环切换，还能确保目标窗口获得焦点：

' 声明Windows API函数，用于将指定窗口带到前台获得焦点
' 64位Office用PtrSafe和LongPtr，32位Office去掉PtrSafe，把LongPtr改成Long
Private Declare PtrSafe Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As LongPtr) As Boolean

Sub PreviousInspector()
    Dim currentInspector As Outlook.Inspector
    Dim targetIndex As Integer
    
    Set currentInspector = Application.ActiveInspector
    
    ' 如果没有打开任何邮件窗口，直接退出
    If currentInspector Is Nothing Then Exit Sub
    
    ' 计算目标窗口索引：当前索引减1，若小于1则跳到最后一个窗口
    targetIndex = currentInspector.Index - 1
    If targetIndex < 1 Then targetIndex = Application.Inspectors.Count
    
    ' 激活目标窗口并设置焦点
    With Application.Inspectors(targetIndex)
        .Activate
        SetForegroundWindow .hwnd
    End With
End Sub

Sub NextInspector()
    Dim currentInspector As Outlook.Inspector
    Dim targetIndex As Integer
    
    Set currentInspector = Application.ActiveInspector
    
    ' 如果没有打开任何邮件窗口，直接退出
    If currentInspector Is Nothing Then Exit Sub
    
    ' 计算目标窗口索引：当前索引加1，若大于总数则跳到第一个窗口
    targetIndex = currentInspector.Index + 1
    If targetIndex > Application.Inspectors.Count Then targetIndex = 1
    
    ' 激活目标窗口并设置焦点
    With Application.Inspectors(targetIndex)
        .Activate
        SetForegroundWindow .hwnd
    End With
End Sub

代码关键点说明： #

• API函数：SetForegroundWindow是Windows系统提供的功能，能强制把指定窗口带到前台，解决你之前困惑的焦点问题。注意根据你的Office版本调整声明（64位/32位）。
• Inspectors集合：Outlook里所有打开的邮件窗口都存在这个集合里，每个窗口对应一个Inspector对象，Index属性就是它在集合中的位置。
• 循环逻辑：和你Excel宏的思路一致，向前切换时如果到第一个窗口，就跳转到最后一个；向后切换时到最后一个窗口，就跳转到第一个，实现无缝循环。
• 错误处理：如果没有打开任何邮件窗口，宏会直接退出，避免报错。

你可以把这两个宏添加到Outlook的快速访问工具栏，这样就能像Excel里那样一键切换窗口了！

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