Excel meets Outlook - Probleme (Verweise?)
19.03.2017 16:52:31
Sergej
folgendes Problem habe ich:
Ich möchte das Outlook Adressbuch per einen Button öffnen. Hat auch funktioniert. Aber nicht an meinen privaten PC, sondern mit meinem PC auf der Arbeit.
Der Code sieht wie folgt aus:
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
End If
Set OutSitz = Nothing
Set Adressbuch = Nothing
End Function
Denke es liegt an irgendwelche fehlenden Verweisen. Habe einiges probiert doch ohne erfolg.
Danke für eure Hilfe...
Anzeige
