如何用Outlook VBA宏最小化所有已打开约会项？求示例脚本

这里提供一个可以批量最小化Outlook中所有已打开约会项的VBA宏，它会遍历所有打开的检查器窗口，仅处理约会类型的项目：

Sub MinimizeAllOpenAppointments()
    Dim objInspector As Inspector
    Dim objItem As Object
    
    ' 遍历所有打开的检查器窗口
    For Each objInspector In Application.Inspectors
        Set objItem = objInspector.CurrentItem
        ' 验证当前窗口是否为约会项
        If TypeName(objItem) = "AppointmentItem" Then
            objInspector.WindowState = olMinimized
        End If
        Set objItem = Nothing
    Next objInspector
    Set objInspector = Nothing
End Sub

操作步骤： #

• 打开Outlook，按下Alt + F11启动VBA编辑器
• 在左侧项目面板中，右键点击你的Outlook配置文件，选择插入 > 模块
• 将上述代码粘贴到模块的代码窗口中
• 按F5运行宏，或者通过Outlook的快速访问工具栏添加该宏，方便快速调用

这个宏只会处理约会项窗口，不会影响其他类型的打开窗口（如邮件、任务等）。

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