Hallo zusammen
Ich habe im Netzt unten stehenden Code gefunden, den ich brauche um das Globale Adressbuch auszulesen. Leider Passiert dabei nichts, wenn ich den Code starte. Eigendlich sollte er mir die gesuchten Daten in die Tabelle Schreiben, das macht er aber nicht. hat jemand ne Ahnung wieso nicht. Und als zweites wäre es nicht schlecht, wenn er automatisch das ganze Globale Adressbuch in die Tabelle einträgt. Ich hoffe mir kann jemand helfen.
Danke Fred
Sub Befehl2_Click()
'Call ContactsToExcel
Const PR_CELLULAR_TELEPHONE_NUMBER = &H3A1C001E 'Mobiltelefon
Const PR_BUSINESS_TELEPHONE_NUMBER = &H3A08001F 'Telefon Geschäft
Const PR_BUSINESS2_TELEPHONE_NUMBER = &H3A1B001E 'Telefon Geschäft2
Const PR_HOME_TELEPHONE_NUMBER = &H3A09001E 'Telefon Privat
Const PR_HOME2_TELEPHONE_NUMBER = &H3A2F001E 'Telefon Privat2
Const PR_GIVEN_NAME = &H3A06001E 'Nachname
Const PR_SURNAME = &H3A11001E 'Vorname
Const try = &H3A1C001E
Dim objSession As RDOSession
Dim objRecipients As RDORecipients
Dim objRecipient As RDORecipient
Dim objAdressEntry As RDOAddressEntry
Dim objDistList As RDOAddressEntry
Dim test As RDOAddressEntry
Set objSession = CreateObject("Redemption.RDOSession")
Call objSession.Logon
'Set objRecipients = objSession.AddressBook.ShowAddressBook(, "Empfänger auswählen", , , 1, "ü _
bernehmen")
Set test = objSession.AddressBook.GAl.ResolveName("Abbed, Richard ")
If Err.Number = 0 Then
' Set objRecipient = objRecipients.Item(1)
' Set objAdressEntry = objRecipient.AddressEntry
Debug.Print test.Fields(PR_GIVEN_NAME) & " " & test.Fields(PR_SURNAME)
Debug.Print test.Fields(PR_BUSINESS_TELEPHONE_NUMBER)
Debug.Print test.Fields(try)
Debug.Print test.Fields(PR_CELLULAR_TELEPHONE_NUMBER)
Debug.Print test.Fields(PR_HOME_TELEPHONE_NUMBER)
Debug.Print test.Fields(PR_HOME2_TELEPHONE_NUMBER)
Debug.Print test.Fields(PR_BUSINESS2_TELEPHONE_NUMBER)
End If
Set objSession = Nothing
Set objRecipients = Nothing
Set objRecipient = Nothing
Set objAdressEntry = Nothing
End Sub