Frage : Vieldeutige Störung verhindern

Hallo möchten Experten,

I Expertenhilfe fordern. Wie man die angebrachten Codes in der Aussicht (ThisOutlookSession) kombiniert um vieldeutige Störung zu vermeiden? 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Dim WithEvents olkFolder als Outlook.Items

Privates VorApplication_Quit ()
    olkFolder einstellen = nichts
Unterseeboot beenden

Privates VorApplication_Startup ()
    olkFolder = Session.GetDefaultFolder (olFolderSentMail) einstellen. Einzelteile
Enden-Unterseeboot

u.

Schwaches objMT als MyTracker

Privates VorApplication_Quit ()
    objMT einstellen = nichts
Unterseeboot beenden

Privates VorApplication_Startup ()
    objMT einstellen = neues MyTracker
Unterseeboot beenden

Antwort : Vieldeutige Störung verhindern

Das zwei Unterseeboote… d.h. deklete der Code im Modul wie folgt vermischen und durch das Stückchen ersetzen.

Chris
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Schwaches WithEvents olkFolder als Outlook.Items
Schwaches objMT als MyTracker

Privates VorApplication_Quit ()
    olkFolder einstellen = nichts
    objMT einstellen = nichts
Unterseeboot beenden

Privates VorApplication_Startup ()
    olkFolder = Session.GetDefaultFolder (olFolderSentMail) einstellen. Einzelteile
    objMT einstellen = neues MyTracker
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us