1

我在 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 文件部署到的其他计算机来说，这是必需的）。有没有办法在添加按钮之前检查它是否已经存在？

4

1 回答 1

2

你的按钮是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 控件

于 2013-01-28T16:03:20.780 回答