如何获取Outlook日历选中会议的idMso Ribbon名称并引用该功能区

• 获取Outlook日历中选中会议对应的功能区idMso（已知该idMso不是TabMeeting或TabCalendar）
• 通过该idMso将自定义加载项组显示在对应功能区上
• 实现加载项获取选中的会议项目

当前使用的Ribbon XML配置代码如下：

<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">
  <ribbon startFromScratch="0">
    <tabs>
      <!--<tab idMso="TabAddIns" insertBeforeMso="TabMail">-->
      <tab idMso="TabMeeting">
        <group id="GetTermine" label="SITBS">
           <toggleButton id="OnActionCallback" label="Get Termine" size="large" onAction="OnActionCallback" />
        </group>
      </tab>
        <tab idMso="TabAppointment">
            <group id="GetTermine1" label="SITBS">
                <toggleButton id="OnActionCallback1" label="Get Termine" size="large" onAction="OnActionCallback" />
            </group>
        </tab>
    </tabs>
  </ribbon>
</customUI>

当前自定义加载项组的显示效果：

1. 获取目标功能区idMso #

方法一：使用Office RibbonX Editor工具 #

下载并打开Office RibbonX Editor，切换到Outlook，选中日历中的会议，使用工具的「Inspect Ribbon」功能，即可查看当前激活的功能区选项卡的idMso。

方法二：VBA临时脚本 #

打开Outlook的VBA编辑器（快捷键Alt+F11），插入新模块，粘贴以下代码：

Sub GetCurrentRibbonTabID()
    Dim ribbon As Object
    On Error Resume Next
    Set ribbon = Application.CommandBars("Ribbon").Controls(1)
    If Not ribbon Is Nothing Then
        MsgBox "当前激活选项卡ID: " & ribbon.ActiveTab.ID
    End If
End Sub

选中日历中的会议后运行该脚本，即可弹出目标idMso。

2. 修改Ribbon XML配置 #

将获取到的idMso替换到XML的tab idMso属性中，示例如下（假设目标idMso为TabCalendarItem）：

<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">
  <ribbon startFromScratch="0">
    <tabs>
      <!-- 替换为实际获取到的idMso -->
      <tab idMso="TabCalendarItem">
        <group id="GetTermine" label="SITBS">
           <toggleButton id="OnActionCallback" label="获取会议" size="large" onAction="OnActionCallback" />
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

若需要在多个功能区显示自定义组，可保留多个<tab>节点，每个对应不同的idMso。

3. 获取选中的会议项目 #

C#（VSTO加载项）实现 #

在OnActionCallback回调方法中添加以下代码：

public void OnActionCallback(Office.IRibbonControl control, bool pressed)
{
    Outlook.Explorer activeExplorer = Globals.ThisAddIn.Application.ActiveExplorer();
    if (activeExplorer.Selection.Count > 0)
    {
        foreach (var selectedItem in activeExplorer.Selection)
        {
            if (selectedItem is Outlook.AppointmentItem meetingItem)
            {
                // 示例：获取会议信息
                string subject = meetingItem.Subject;
                DateTime startTime = meetingItem.Start;
                // 这里添加你的自定义业务逻辑
            }
        }
    }
}

VBA实现 #

在加载项的回调过程中添加：

Sub OnActionCallback(control As IRibbonControl, pressed As Boolean)
    Dim activeExplorer As Outlook.Explorer
    Set activeExplorer = Application.ActiveExplorer
    
    If activeExplorer.Selection.Count > 0 Then
        Dim selectedItem As Object
        Set selectedItem = activeExplorer.Selection(1)
        
        If TypeName(selectedItem) = "AppointmentItem" Then
            ' 示例：弹出会议主题
            MsgBox "选中会议主题: " & selectedItem.Subject
            ' 自定义逻辑写在这里
        End If
    End If
End Sub

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