Outlook VBA教程:FolderSwitch事件

当浏览器导航到新文件夹时发生,可以是用户操作或程序代码的结果。该事件在 VBScript 中不可用。

Sub object_FolderSwitch()

object  该表达式的值为Explorer对象。

VBA示例

本示例根据当前显示的文件夹显示或隐藏菜单栏。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用Initialize_handler 例程。


Dim myOlApp As Outlook.Application
Public WithEvents myOlExp As Outlook.Explorer
Public Sub Initialize_handler()
    Set myOlExp = myOlApp.ActiveExplorer
End Sub
Private Sub myOlExp_FolderSwitch()
    Select Case MyOlExp.CurrentFolder.Name
        Case "Sales Contacts"
            MyToolsMenu.Visible = True
        Case Else
            MyToolsMenu.Visible = False
    End Select
End Sub

上页:Outlook VBA教程:FolderRemove事件 下页:Outlook VBA教程:Forward事件

Outlook VBA教程:FolderSwitch事件:相关链接

Outlook VBA教程:Forward事件 Outlook VBA教程:GroupAdd事件
Outlook VBA教程:ItemAdd事件 Outlook VBA教程:ItemChange事件
Outlook VBA教程:ItemRemove事件 Outlook VBA教程:ItemSend事件
Outlook VBA教程:MapiLogonComplete事件 Outlook VBA教程:NewExplorer事件
Outlook VBA教程:NewInspector事件 Outlook VBA教程:NewMail事件
Outlook VBA教程:OnError事件 Outlook VBA教程:Open事件
Outlook VBA教程:OptionsPagesAdd事件 Outlook VBA教程:Progress事件
Outlook VBA教程:PropertyChange事件 Outlook VBA教程:Quit事件
Outlook VBA教程:Read事件 Outlook VBA教程:Reminder事件
Outlook VBA教程:ReminderAdd事件 Outlook VBA教程:ReminderChange事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号