一个小问题

感谢您使用微软产品。您可以通过Outlook Object Library中的Explorer对象操作Outlook的用户界面，包括添加TOOL BAR，如下例：Private Sub Command1_Click()
    Dim RenApp As Outlook.Application
    Dim RenNS As Outlook.NameSpace
    
    Set RenApp = CreateObject("Outlook.Application")
    Set RenNS = RenApp.GetNamespace("MAPI")
    
    RenNS.Logon '"MyoffLine"
    
    Set RenFolder = RenNS.GetDefaultFolder(olFolderInbox) 'key line
    Set RenExplorer = RenFolder.GetExplorer(olFolderDisplayNormal)
    RenExplorer.Display  'displays the explorer    Set oCommandBar = RenExplorer.CommandBars.Add("Test Bar")
    oCommandBar.Visible = TrueEnd Sub关于OutLook对象的详细内容，您可以参考以下文章：
Working with Microsoft Outlook Objects
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/modcore/html/deovrWorkingWithMicrosoftOutlookObjects.asp Understanding the Explorer and Inspector Objects
http://msdn.microsoft.com/library/en-us/modcore/html/deovrUnderstandingExplorerInspectorObjects.asp-  微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。