当从指定的 Folders 集合中删除文件夹时发生。该事件在 VBScript 中不可用。
Sub object_FolderRemove()
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