FolderAdd 事件

当将文件夹添加到指定的 Folders 集合时发生。该事件在 VBScript 中不可用。

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

Folder  必选。添加到集合中的 MAPIFolder。

示例

本示例显示在用户的“收件箱”文件夹中创建的新文件夹。

Dim myOlApp As New Outlook.Application
Public WithEvents myOlFolders As Outlook.Folders

Public Sub Initialize_handler()
    Set myOlFolders = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders
End Sub

Private Sub myOlFolders_FolderAdd(ByVal Folder As Outlook.MAPIFolder)
    Folder.Display
End Sub