2012-11-15 39 views

回答

0

首先,添加對Outlook對象庫的引用。如果Outlook已處於打開狀態:

Outlook.ActiveExplorer().CommandBars.FindControl(, 5613).Execute

如果Outlook關閉:

Dim olApp As Outlook.Application 
Set olApp = CreateObject("Outlook.Application") 
olApp.GetNamespace("MAPI").Folders.GetFirst.GetExplorer.CommandBars.FindControl(, 5613).Execute