If Outlook_Installiert then
 
     Dim olApp as Object
     Dim olNs  as Object
 
     'Funktion erstellt konkrete Objekte
     Call Outlook_Anmelden(ByRef olApp as Object, ByRef olNs as Object)
 
     'Ich übergebe den Funktionen die beiden Objekte. Innerhalb der Funktionen
     'werden alle benötigten Objekte erzeugt und auch wieder zerstört. Hier ein
     'kleines Beispiel aus der Funktion "Outlook_Kontakte_Sync":
 
     'Dim olContactFolder As Object
     'Set olContactFolder = olNs.GetDefaultFolder(10)
     'Dim olContactItems As Object
     'Set olContactItems = olContactFolder.Items
     'Dim olContact As Object
     'Set olContact = olApp.CreateItem(2)
     '...
     'Set olContact = Nothing
     'Set olContactItems = Nothing
     'Set olContactFolder = Nothing
 
     Call Outlook_Posteingang_Synch(ByRef olApp as Object, ByRef olNs as Object)
     Call Outlook_Postausgang_Synch(ByRef olApp as Object, ByRef olNs as Object)
     Call Outlook_Kontakte_Sync(ByRef olApp as Object, ByRef olNs as Object)
     Call Outlook_Termine_Sync(ByRef olApp as Object, ByRef olNs as Object)
 
     'Schließt die Verbinung und Zerstört die übergebenen Objekte
     Call Outlook_Abmelden(ByRef olApp as Object, ByRef olNs as Object)
 
End if