使用 VBA 创建 Outlook 2003 工具栏

Question

在 Excel 2003 中，我可以访问 Application.CommandBars 集合以使用 VBA 创建自定义工具栏。 Outlook 2003 中有类似的功能吗？

我正在尝试更改客户工具栏按钮上的标签。将来我想从头开始创建工具栏。

干杯， Dave

--Trindaz 谈 Fedang #Outlook-vbas

Answer 1

最终我自己解决了这个问题。如果您有兴趣，这是代码：

Dim expExplorer As Outlook.Explorer
Dim cmbCommandBar As CommandBar
Dim ctlBarControl As CommandBarControl
For Each expExplorer In Outlook.Explorers
    For Each cmbCommandBar In expExplorer.CommandBars
        If cmbCommandBar.Name = "name-of-toolbar" Then
            For Each ctlBarControl In cmbCommandBar.Controls
                If ctlBarControl.Caption = "caption-i-want-to-change" Then
                    ctlBarControl.Caption = "new-caption-text"
                End If
            Next ctlBarControl
        End If
    Next cmbCommandBar
Next expExplorer