Vb6 Outlook 2007加载项发送更新_Vb6_Outlook Addin_Outlook 2007

Vb6 Outlook 2007加载项发送更新

vb6

Vb6 Outlook 2007加载项发送更新,vb6,outlook-addin,outlook-2007,Vb6,Outlook Addin,Outlook 2007,是否有任何方法可以捕获Outlook 2007中的“发送更新”按钮？我的iribbonextensibly.GetCustomUI（）中有以下内容：但是，结果仍然是一样的捕获此按钮的唯一方法似乎是appointItem.send（）方法。这些按钮不是功能区或菜单的一部分，因此不能以这种方式捕获 "<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">" & _ "<comma

是否有任何方法可以捕获Outlook 2007中的“发送更新”按钮？我的iribbonextensibly.GetCustomUI（）中有以下内容：

但是，结果仍然是一样的

捕获此按钮的唯一方法似乎是appointItem.send（）方法。这些按钮不是功能区或菜单的一部分，因此不能以这种方式捕获

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

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