Outlook联系人右键自定义菜单命令不显示问题求助

核心问题：Selection参数判断逻辑错误 #

你的代码中Application_ItemContextMenuDisplay事件的Selection参数是Outlook.Selection集合对象，并非单个ContactItem。原代码用TypeOf Selection Is Outlook.ContactItem做判断，该条件永远无法成立，导致后续的调试弹窗、菜单添加逻辑全未执行。

修正步骤 #

1. 修复右键菜单触发的判断逻辑 #

修改Application_ItemContextMenuDisplay中的判断逻辑，先检查选择集合是否有项目，再验证第一个项目是否为联系人类型：

Private Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Object)
    MsgBox("Application_ItemContextMenuDisplay")
    Dim sel As Outlook.Selection = CType(Selection, Outlook.Selection)
    ' 校验是否选中了联系人项目
    If sel.Count > 0 AndAlso TypeOf sel.Item(1) Is Outlook.ContactItem Then
        Dim callItem As Office.CommandBarControl = CommandBar.Controls.Add(Office.MsoControlType.msoControlButton)
        callItem.Caption = "URI Call"
        callItem.Tag = "URI Call"
        AddHandler CType(callItem, Office.CommandBarButton).Click, AddressOf callItem_Click
    End If
End Sub

2. 简化电话号码获取逻辑 #

原代码遍历contact.PhoneNumbers的方式错误，PhoneNumbers并非可枚举集合，而是ContactItem的独立属性组（如办公电话、家庭电话、移动电话等）。直接访问对应属性即可收集号码：

Private Sub callItem_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)
    Dim sel As Outlook.Selection = Application.ActiveExplorer.Selection
    If sel.Count > 0 AndAlso TypeOf sel.Item(1) Is Outlook.ContactItem Then
        Dim contact As Outlook.ContactItem = CType(sel.Item(1), Outlook.ContactItem)
        Dim phoneNumbers As New List(Of String)
        
        ' 收集非空的电话号码
        If Not String.IsNullOrEmpty(contact.BusinessTelephoneNumber) Then
            phoneNumbers.Add($"办公电话: {contact.BusinessTelephoneNumber}")
        End If
        If Not String.IsNullOrEmpty(contact.HomeTelephoneNumber) Then
            phoneNumbers.Add($"家庭电话: {contact.HomeTelephoneNumber}")
        End If
        If Not String.IsNullOrEmpty(contact.MobileTelephoneNumber) Then
            phoneNumbers.Add($"移动电话: {contact.MobileTelephoneNumber}")
        End If
        ' 可按需添加其他电话属性，如Business2TelephoneNumber等
        
        If phoneNumbers.Count > 0 Then
            MsgBox(String.Join(Environment.NewLine, phoneNumbers))
            ' 后续可在此添加CALLTO/TEL URI调用逻辑，例如：
            ' Process.Start($"tel:{contact.MobileTelephoneNumber.Replace(" ", "").Replace("-", "")}")
        Else
            MsgBox("该联系人无可用电话号码")
        End If
    End If
End Sub

3. 额外注意事项 #

• 确认加载项已启用：在Outlook中依次点击文件→选项→加载项，检查你的加载项是否在活动应用程序加载项列表内。
• 权限问题：后续若使用Process.Start调用URI，调试时可尝试以管理员身份运行Visual Studio，避免权限限制。
• API兼容性：Outlook 2016仍支持CommandBar API，虽微软推荐新开发使用Ribbon框架，但右键菜单场景下ItemContextMenuDisplay事件仍是可行方案。

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