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

我正在向Outlook添加一个工具栏。以编程方式向Outlook 2007添加超链接按钮

工具栏上有一个按钮。

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

我创建了按钮&工具栏没有问题，但无法解决如何添加超链接？

任何想法？

由于提前，

吉姆

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

来源

2010-11-16 BIDeveloper