Outlook 2007加载项发送更新

时间:2011-02-15 16:54:29

标签: vb6 outlook-addin outlook-2007

有没有办法在Outlook 2007中捕获“发送更新”按钮?我在IRibbonExtensibily.GetCustomUI()中有以下内容:

"<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">" & _
"<commands>" & _
"<command idMso=""SendItem"" onAction=""SendAction"" />" & _
"<command idMso=""SendUpdate"" onAction=""SendAction"" />" & _
"</commands>" & _
"</customUI>"

当我使用约会表单中的“发送更新”按钮时,从不调用SendAction()方法。它可以从“文件”菜单和其他位置工作,但不能在按钮上工作。有没有办法捕捉这个事件?

或者......有什么理由(物品泄漏或其他东西),我没有抓住它?

更新,我也尝试使用以下方式捕获它:

 Dim WithEvents updateButton As CommandBarButton 
 Set updateButton = Inspector.CommandBars.FindControl(id:=1983, Visible:=False)  

但是,结果仍然相同。

1 个答案:

答案 0 :(得分:0)

似乎捕获此按钮的唯一方法是在appointmentitem.send()方法中。这些按钮不是功能区或菜单的一部分,因此不能被捕获。