VBA调用Outlook2010 Ribbon上按钮的命令
Sub ExecuteRibbonButton() Dim Item As Outlook.MailItem Set Item = Application.ActiveExplorer().Selection(1) Item.GetInspector.Display Item.GetInspector.CommandBars.ExecuteMso ("MoveToOneNote") Set Item = Nothing End Sub
由于MoveToOneNote是MailReadInspector上的按钮,所以必须激活Inspector才能执行这个命令。
征诛志异,三让两家王朝;功同开辟,一桮万古江南。