VBA Excel - Adressbuch

[ClashOfClans']

Hallo,
poste nun meine Frage schon im 3. Forum.
Habe ein Problem. Und zwar möchte ich die Outlook Kontaktliste als Pop-up Fenster öffnen. Funktioniert zwar, aber nicht an dem PC bei mir zuhause (auf der Arbeit funktioniert es einwandfrei).

Hier der Code:

Public Function outName()

Dim OutSitz As Object
Dim Adressbuch As Object


On Error Resume Next

Set OutSitz = CreateObject("MAPI.Session")

If Not OutSitz Is Nothing Then
OutSitz.Logon "", "", False, False
End If

Set Adressbuch = OutSitz.AddressBook()
outName = Adressbuch.Item(1).Name

If outName = "" Then
MsgBox "Es wurde kein Empfänger ausgewählt.", vbCritical, "Fehler"

End If

Set OutSitz = Nothing
Set Adressbuch = Nothing


End Function

Wie gesagt, auf der Arbeit funktioniert es einwandfrei aber zuhause läuft das Programm nicht. Es liegt an MAPI.Session, weiss aber nicht wie bzw. wodurch ich es ersetzen kann.


Mein Versuch wäre ja:

Public Function outName()

Dim OutSitz As Outlook.Application
Dim Adressbuch As Object
Dim nsOut as NameSpace


Set OutSitz = New Outlook.Application
Set nsOut = OutSitz.GetNameSpace("MAPI").Logon , , ,False


... *
End Function

*Wie es weiter gehen würde weiß ich leider nicht


Danke für eure Hilfe!