Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook 10- explorers ereignis wird nicht ausgelöst
 04.08.2012 23:22:35 Oskar
Solved
07.08.2012 11:46:14 Oskar
NotSolved

Ansicht des Beitrags:
Von:
Oskar		 Datum:
04.08.2012 23:22:35		 Views:
2356		 Rating:
     
Antwort:
 Nein
Thema:
Outlook 10- explorers ereignis wird nicht ausgelöst

Hallo,

ich möchte das Explorers.NewExplorer - Ereignis nutzen, aber es wird nicht ausgelöst. Dazu habe ich zum Test die Beispiele aus der Hilfe verwendet.

In einem Klassenmodul  "explorereventsausgabe "

Option Explicit

Public WithEvents myOlExplorers As Outlook.Explorers

Public Sub Initialize_handler()
    Set myOlExplorers = Application.Explorers
   End Sub

Public Sub myOlExplorers_NewExplorer(ByVal Explorer As Outlook.Explorer)
    If TypeName(Application.ActiveExplorer) <> "Nothing" Then
        Application.ActiveExplorer.WindowState = olMinimized
    End If
End Sub

In einem Modul

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 " 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

OOskarVorVoEiEEEiNein neues 
 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook 10- explorers ereignis wird nicht ausgelöst
 04.08.2012 23:22:35 Oskar
Solved
07.08.2012 11:46:14 Oskar
NotSolved