以编程方式添加超链接按钮到Outlook 2007

Question

我正在向Outlook添加一个工具栏。

该工具栏将有一个按钮。

按下时，此按钮将打开一个网站。

我已经创建了按钮和工具栏没问题，但是无法算出如何添加超链接？

  Set oTBar = oView.Add("toolbarname")
  oTBar.Position = 1
  oTBar.Visible = true

  Set oButton = OTBar.Controls.Add
  With oButton
      .Caption = "Click here!"
      .Style = 3
      .HyperlinkType = 1
      .FaceId = 1707     
   End with

Answer 1

哈哈！

您需要将其添加为工具提示：

  .ToolTipText  = "http://your_url"