当更改指定 Folders 集合中的文件夹时发生。该事件在 VBScript 中不可用。
Sub object_FolderChange(ByVal Folder As MAPIFolder)
object 该表达式的值为 Folders 集合对象。
Folder 必选。已更改的 MAPIFolder。
本示例在文件夹为空时,提示用户将该文件夹从“已删除的邮件”文件夹中删除。示例代码必须放在类模块中,并且在 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_FolderChange(ByVal Folder As Outlook.MAPIFolder)
If Folder.Items.Count = 0 Then
MyPrompt = Folder.Name & " is empty. Do you want to delete it?"
If MsgBox(MyPrompt, vbYesNo + vbQuestion) = vbYes Then
Folder.Delete
End If
End If
End Sub