Public Sub start()
Dim myclass1 As New explorereventsausgabe
myclass1.Initialize_handler
End Sub
Public Sub DisplayDrafts()
Dim myExplorers As Outlook.Explorers
Dim myOlExpl As Outlook.Explorer
Dim myFolder As Outlook.Folder
Set myExplorers = Application.Explorers
Set myFolder = Application.GetNamespace("MAPI").GetDefaultFolder _
(olFolderDrafts)
Set myOlExpl = myExplorers.Add _
(myFolder, olFolderDisplayNoNavigation)
myOlExpl.Display
End Sub
Ich rufe nacheinander die Makros auf
- start
- DisplayDrafts
Die Klasse "explorereventsausgabe<span style="display: none;"> </span>" wird instanziert.
die Sub Initialize_handler wird durchlaufen
Das neue Explorer Fenster ist sichtbar
Das Ereignis wird aber nicht ausgelöst, die Sub wird nicht durchlaufen
Was mache ich falsch
Vorab vielen Dank für jeden Tip
Oskar
<span style="display: none;">OOskarVorVoEiEEEiNein neues
</span>