检查是否存在 CommandBarButton

Question

我在我的 VbaProject.OTM 文件的 ThisOutlookSession 中使用以下内容将 2 个自定义按钮添加到新邮件的标准 工具栏：

Dim outl As Object
Dim msg As Object
Set outl = CreateObject("Outlook.Application")
Set msg = outl.CreateItem(0)
msg.Display (False)

Dim objBar As Office.CommandBar
Dim objButton As Office.CommandBarButton

Set objBar = Application.ActiveWindow.CommandBars("Standard")
Set objButton = objBar.Controls.Add(msoControlButton)

With objButton
    .caption = "button1"
    .OnAction = "macro1"
    .TooltipText = "Description"
    .faceId = 487
    .Style = msoButtonIconAndCaption
    .BeginGroup = True
End With

Set objButton = objBar.Controls.Add(msoControlButton)

With objButton
    .caption = "button2"
    .OnAction = "macro2"
    .TooltipText = "Description"
    .faceId = 2525
    .Style = msoButtonIconAndCaption
    .BeginGroup = True
End With

msg.Close 1

问题在于，每次 Outlook 启动时都会添加按钮（我愿意将 OTM 文件部署到的其他计算机需要此按钮）。有没有办法在添加按钮之前检查它是否已经存在？

Answer 1

You 按钮是toolbar 的一部分。因此检查工具栏的存在。

If IsToolbar("Standard") Then 
  '-- do something
  Else 
  '-- create tool bar and add the buttons
End If

或者试试这个：

For Each Contrl in Application.CommandBars("Standard").Controls
   If .Caption <> "button1" then
      '-- create it
   End If
Next Contrl

---

根据 OP 的评论进行编辑：

所以让我们坚持错误捕获...（未经测试的代码，因此您可能必须尝试一下，以获得完全正确的语法）

Dim ctlCBarControl As CommandBarControl
On Error Resume Next    
Set ctlCBarControl = Application.CommandBars("Standard").Controls("button1")

   If Err <> 0 Then
      '-- no button exists, you may add it
      Err = 0
   Else
      '-- the button is there.. 
   End If
End if

* 参考：CommandBar Controls