Vraag : Verhinder dubbelzinnige fout

Hallo zouden de Deskundigen,

I om de hulp van Deskundigen willen verzoeken. Hoe te om de codes in bijlage in Vooruitzichten (ThisOutlookSession te combineren) om dubbelzinnige fout te vermijden?
" codeBody " 
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

Privé SubApplication_Quit ()
    Reeks olkFolder = niets
Sub van het eind

Privé SubApplication_Startup ()
    Reeks olkFolder = Session.GetDefaultFolder (olFolderSentMail). Punten
Sub van het eind

&

Schemerige objMT als MyTracker

Privé SubApplication_Quit ()
    Reeks objMT = niets
Sub van het eind

Privé SubApplication_Startup ()
    Reeks objMT = Nieuwe MyTracker
Sub van het eind

Antwoord : Verhinder dubbelzinnige fout

Voeg als volgt twee subs samen… d.w.z. deklete de code in de module en vervang met het fragment.

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

Schemerige WithEvents olkFolder als Outlook.Items
Schemerige objMT als MyTracker

Privé SubApplication_Quit ()
    Reeks olkFolder = niets
    Reeks objMT = niets
Sub van het eind

Privé SubApplication_Startup ()
    Reeks olkFolder = Session.GetDefaultFolder (olFolderSentMail). Punten
    Reeks objMT = Nieuwe MyTracker
Sub van het eind
Andere oplossingen  
 
programming4us programming4us