如何用VBA跳过Outlook“在对话中显示”弹窗并自动选择设置？

方法1：用Windows API模拟弹窗按钮点击 #

ExecuteMso ("ShowInConversations")触发的是模态弹窗，普通VBA代码会被阻塞，因此需要借助Windows API提前设置定时器，在弹窗出现后自动点击目标按钮。

完整代码示例 #

Option Explicit

' Windows API声明
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr) As Long

Const BM_CLICK = &HF5
Dim timerID As LongPtr

Sub ToggleShowInConversationsAuto()
    ' 设置100毫秒定时器，确保弹窗出现后能被捕获
    timerID = SetTimer(0, 0, 100, AddressOf TimerProc)
    ' 触发"在对话中显示"命令
    ActiveExplorer.CommandBars.ExecuteMso ("ShowInConversations")
End Sub

Private Sub TimerProc(ByVal hWnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long)
    Dim dialogHWnd As LongPtr
    Dim btnHWnd As LongPtr
    
    ' 查找弹窗窗口（标题为"在对话中显示"，根据Outlook语言版本调整）
    dialogHWnd = FindWindow("#32770", "在对话中显示")
    
    If dialogHWnd <> 0 Then
        ' 停止定时器
        KillTimer 0, timerID
        
        ' 查找"此文件夹"按钮（按钮文本根据语言版本调整，英文为"This Folder"）
        btnHWnd = FindWindowEx(dialogHWnd, 0, "Button", "此文件夹")
        ' 若要选择"所有邮箱"，替换按钮文本为"所有邮箱"（英文为"All Mailboxes"）
        
        If btnHWnd <> 0 Then
            ' 模拟点击按钮
            SendMessage btnHWnd, BM_CLICK, 0, 0
        End If
    End If
End Sub

使用说明 #

1. 按Alt+F11打开Outlook的VBA编辑器，将代码粘贴到模块中
2. 运行ToggleShowInConversationsAuto宏即可自动切换设置并处理弹窗
3. 注意匹配Outlook语言版本：弹窗标题和按钮文本需与你的界面语言一致，英文版本要对应修改为"Show in Conversations"、"This Folder"等

方法2：直接修改文件夹属性（单文件夹专属） #

如果仅需设置单个文件夹的对话显示状态，可直接修改文件夹属性，完全避免弹窗：

Sub SetFolderShowInConversations()
    Dim targetFolder As Folder
    ' 选中当前浏览的文件夹
    Set targetFolder = ActiveExplorer.CurrentFolder
    
    ' 切换对话显示状态（开启/关闭）
    targetFolder.ShowInConversations = Not targetFolder.ShowInConversations
End Sub

优势 #

• 无弹窗干扰，直接修改文件夹配置
• 精准控制单个文件夹，适合无需批量设置所有邮箱的场景

内容的提问来源于stack exchange，提问作者Adam J. Kessel