Outlook VBA教程:FolderRemove事件

当从指定的Folders集合中删除文件夹时发生。该事件在 VBScript 中不可用。

Sub object_FolderRemove()

object  该表达式的值为 Folders集合对象。

VBA示例

本示例将“已删除的邮件”文件夹中的文件夹名填写到窗体中的组合框中。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用Initialize_handler 例程。


Dim myolapp As New Outlook.Application
Dim WithEvents myFolders As Outlook.Folders
Sub Initialize_handler()
    Set myNS = myolapp.GetNamespace("MAPI")
    Set myFolders = myNS.GetDefaultFolder(olFolderDeletedItems).Folders
End Sub
Private Sub myFolders_FolderRemove()
    Form1.Combo1.Clear
    For x = 1 To myFolders.Count
        Form1.Combo1.AddItem (myFolders.Item(x).Name)
    Next x
End Sub

上页:Outlook VBA教程:FolderChange事件 下页:Outlook VBA教程:FolderSwitch事件

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

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事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号