如何使用VBA打开联系人列表及执行Ctrl+Shift+B等自定义设置操作

刚好之前折腾过Outlook的VBA操作，给你整理了两个精准对应需求的方案，亲测可用：

要打开Outlook的联系人列表，直接通过MAPI命名空间获取联系人文件夹，然后显示它的浏览窗口就行，代码如下：

Sub OpenContactList()
    Dim ns As NameSpace
    Dim contactsFolder As Folder
    Dim contactExplorer As Explorer
    
    Set ns = Application.GetNamespace("MAPI")
    ' 获取默认联系人文件夹，要是你要打开自定义文件夹，修改下面这行
    Set contactsFolder = ns.GetDefaultFolder(olFolderContacts)
    ' 比如打开名为"客户联系人"的自定义文件夹：
    ' Set contactsFolder = ns.Folders("你的邮箱账户名").Folders("客户联系人")
    
    Set contactExplorer = contactsFolder.GetExplorer
    ' 显示联系人窗口
    contactExplorer.Display
End Sub

注意：如果要打开非默认的联系人文件夹，记得替换代码里的文件夹路径，确保账户名和文件夹名完全匹配。

你说的操作本质是打开通讯簿，然后调整地址列表的排序，把指定列表放到首位。这里我用更稳定的对象模型操作（比纯模拟点击菜单靠谱多了），同时也包含了模拟快捷键打开通讯簿的步骤：

Sub SetTargetContactListAsFirst()
    Dim addrLists As AddressLists
    Dim targetList As AddressList
    Dim tempList As AddressList
    Dim targetListName As String
    
    ' 替换成你要设为首位的联系人列表名称，要和Outlook里显示的完全一致
    targetListName = "我的联系人"
    
    ' 模拟按下Ctrl+Shift+B打开通讯簿
    SendKeys "^+B"
    ' 等待1秒让窗口加载，避免程序跑太快出错
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 获取所有地址列表
    Set addrLists = Application.Session.AddressLists
    
    ' 查找目标列表
    Set targetList = Nothing
    For Each tempList In addrLists
        If tempList.Name = targetListName Then
            Set targetList = tempList
            Exit For
        End If
    Next tempList
    
    If Not targetList Is Nothing Then
        ' 检查是否已经是首位
        If addrLists.Item(1).Name <> targetListName Then
            ' 先移除目标列表，再插入到第一位
            addrLists.Remove targetList.Name
            addrLists.Add targetList, 1
            MsgBox targetListName & " 已经成功设置为首位联系人列表！"
        Else
            MsgBox targetListName & " 本来就是首位啦，不用调整~"
        End If
    Else
        MsgBox "没找到名为「" & targetListName & "」的联系人列表，检查一下名称是不是写错了哦！"
    End If
End Sub

小提示：

• 运行VBA前要确保Outlook启用了宏：文件→选项→信任中心→信任中心设置→宏设置，选「启用所有宏」（开发场景推荐，日常用可以选「通知我启用宏」）。
• 用对象模型调整列表顺序比纯SendKeys模拟点击菜单稳定得多，不会因为窗口焦点问题失效。

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