VBA调用Outlook2010 Ribbon上按钮的命令

来源:互联网 发布:淘宝新店免费推广 编辑:程序博客网 时间:2024/06/05 06:42
Sub ExecuteRibbonButton()    Dim Item As Outlook.MailItem        Set Item = Application.ActiveExplorer().Selection(1)    Item.GetInspector.Display    Item.GetInspector.CommandBars.ExecuteMso ("MoveToOneNote")        Set Item = NothingEnd Sub

由于MoveToOneNote是MailReadInspector上的按钮,所以必须激活Inspector才能执行这个命令。

相关下载:http://download.csdn.net/detail/tx_officedev/4106151

原创粉丝点击