如何在Outlook VBA宏中获取功能区按钮名称字符串

方法1：针对传统CommandBar自定义按钮 #

如果你的按钮是通过Outlook“自定义功能区/命令栏”添加的传统按钮，可使用以下VBA代码：

Sub ButtonNameDisplay()
    Dim targetBtn As CommandBarButton
    Dim btnName As String
    
    ' 通过触发宏的按钮ID定位到对应对象
    Set targetBtn = Application.CommandBars.FindControl(ID:=CLng(Application.Caller))
    
    If Not targetBtn Is Nothing Then
        btnName = targetBtn.Name
        MsgBox btnName ' 弹出显示按钮Name，如TestButtonName
    Else
        MsgBox "未能找到触发宏的按钮"
    End If
End Sub

注意事项 #

• 需确保自定义按钮的宏指定为上述ButtonNameDisplay过程。
• Outlook中Application.Caller返回触发宏的按钮ID数值，通过FindControl可定位到按钮对象，进而获取Name属性。

方法2：针对RibbonX自定义按钮（新版Office界面） #

若按钮是通过Ribbon XML自定义添加到开发者选项卡的，需通过回调函数直接获取控件ID（即按钮Name）：

1. Ribbon XML定义按钮时指定回调：

<tab idMso="TabDeveloper">
  <group id="CustomGroup" label="自定义组">
    <button id="TestButtonName" label="测试按钮" onAction="ButtonClickHandler" />
  </group>
</tab>

2. VBA中编写回调函数：

Sub ButtonClickHandler(control As IRibbonControl)
    Dim btnName As String
    btnName = control.ID ' 此处ID即为Ribbon XML中定义的按钮Name（TestButtonName）
    MsgBox btnName
End Sub

原有代码失效原因 #

• ActiveSheet是Excel专属对象，Outlook无此对象，因此Excel代码无法直接复用。
• Application.ActiveInspector.CommandBarButton写法错误：ActiveInspector对应邮件窗口的命令栏，并非开发者选项卡按钮，且该属性本身不存在，执行会报错。

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