FolderRemove 事件

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

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

示例

本示例将“已删除的邮件”文件夹中的文件夹名填写到窗体中的组合框中。示例代码必须放在类模块中，并且在 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