Hallo Leute!
Könnt ihr mir bitte disbezüglich „Globale Adressliste“ helfen?
Ich möchte nämlich die Details einer Person aufrufen, zb Vorname und E-Mailadresse.
Bin euch für jeden Tipp dankbar
mfg waxi
Hallo Waxi,
ich würde dir ja gerne helfen, aber ich verstehe dein Problem nicht. Von wo möchtest du die Details einer Person aufrufen, was meinst du mit einer globalen Adressliste?
lg Maria
Hallo maria
Erstmals danke
Also mein Problem ist:
Wenn ich auf die Globale Adressenliste zugreife, dann zeigt mir mein Code nur den Namen der Person an die ich ausgewählt habe. Ich will aber noch die Firma, TelNr , Station, E-mail usw haben. Diese Einträge will ich in einer Textbox haben.
Vielen dank im vorhinen
mfg waxi
Private Sub CommandButton2_Click()
Dim MyOutlook As Application
Dim MyNameSpace As NameSpace
Dim myAddressList As AddressList
Dim MyAddressEntries As AddressEntries
Dim MyAddressEntry As AddressEntry
Set MyOutlook = CreateObject(„Outlook.Application“)
Set MyNameSpace = Application.GetNamespace(„MAPI“)
Set myAddressList = MyNameSpace.AddressLists(„Globale Adressliste“)
Set MyAddressEntries = myAddressList.AddressEntries
For Each MyAddressEntry In myAddressList.AddressEntries
If LCase(MyAddressEntry.name) Like LCase(TextBox1.Text) Then
Me.ListBox1.AddItem MyAddressEntry
End If
Next
Set MyNameSpace = Nothing
Set MyOutlook = Nothing
End Sub
Hallo Waxi,
jetzt verstehe ich nun das Problem - aber leider kenne ich Outlook kaum, da wir in unserer Firma Lotus Notes benutzen. Daher muss leider in deinem Fall passen - aber vielleicht liest nun auch ein anderer deine detaillierte Erklärung und kann dir dabei helfen.
lg Maria