Thread: FolderChange Event

Hi,

I would like to use this event that I found in "http://msdn.microsoft.com/en-us/libr...ffice.12).aspx" web page. They say that:

"The sample code must be placed in a class module, and the Initialize_handler routine must be called before the event procedure can be called by Microsoft Outlook."

I really do not undestand where I have to put the code!

Dim WithEvents myFolders As Outlook.Folders

Sub Initialize_handler()
    Set myNS = Application.GetNamespace("MAPI")
    Set myFolders = myNS.GetDefaultFolder(olFolderDeletedItems).Folders
End Sub

Private Sub myFolders_FolderChange(ByVal Folder As Outlook.Folder)
    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

A hint would be fine.

Regards,
Elio Fernandes

Hi,

I did what you told me, but if I put the first part of the code on a module, the 'dim' sentence turns red so I put this code on a 'class module'. The 2nd part I put it on the 'outlooksession'.

1) How can I try this code?

2) what do they mean with "....and the Initialize_handler routine must be called before the event procedure can be called by Microsoft Outlook."?

Regards,
Elio Fernandes