This example displays a new folder created in the user’s Inbox folder.
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