使用VBA创建Outlook 2003工具栏

在Excel 2003中，我可以访问集合

应用程序.commandbar

，使用VBA创建自定义工具栏。Outlook 2003中是否有类似的版本

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

干杯， 戴夫

---

--Fedang#Outlook vbas上的Trindaz最终自己解决了这个问题。以下是您感兴趣的代码：

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

---

此答复没有解决您最初提出的关于从头开始创建自定义工具栏的问题。从头开始创建工具栏是我希望在将来做的事情。我面临的问题是“试图更改客户工具栏按钮上的标签”，我的解决方案就是这样做的。英语是你的母语吗？如果是的话，我真的很感兴趣的是你的思维过程导致了对我的否决。不，这不是我的母语，对不起，如果我误解了最初的问题或听起来很刺耳，但我正在寻找一个完整的解决方案，我觉得它应该出现在被接受的答案中，而不是，因此否决。您问题的标题是

使用VBA创建Outlook 2003工具栏

，非常明确。请随意编辑您的答案。