Capture outlook explorator event in vb6

[Lacassagn]

Hi,
How to get an user event in the outlook explorer back into a vb6 form
VB6 gives this code but I can't get it, would you have something else ?

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)
Dim name as string
name = Folder.name
End Sub


Thanks

 

[Ken Slovak - [MVP - Outlook]]

Download the ItemsCB COM addin sample from the Resources page at
www.microeye.com to see how to handle various Outlook events,
including Explorer events.

 

[Lacassagn]

Thanks for the tip.
Lacassagn

Download the ItemsCB COM addin sample from the Resources page at
www.microeye.com to see how to handle various Outlook events,
including Explorer events.