以編程方式向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