Hallihallo,
ich versuche mit VB verzweifelt Zugriff auf das globale Adressbuch zu bekommen. Mit Hilfe folgenden Codes ist mir das inzwischen auch gelungen:
Leider sind "Address", "Name" und "Type" die einzigen Informationen, die ich aus dem GAL heraus bekomme. Ich bin gestern schon den ganzen Tag mit G00gle auf diversen Seiten unterwegs gewesen, habe aber nirgendwo eine Auflistung oder eine andere Methode für den Zugriff auf die GAL gefunden.
Hat hier im Forum das Problem vielleicht schon mal jemand gelöst und kann mir auf die Sprünge helfen (Suchfunktion hat mich nicht weiter gehelft).
Danke für Eure Hilfe
Regulator
ich versuche mit VB verzweifelt Zugriff auf das globale Adressbuch zu bekommen. Mit Hilfe folgenden Codes ist mir das inzwischen auch gelungen:
VB.NET-Quellcode
- Private Sub btnOutlook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOutlook.ClickDim objSession As Object
- Dim objRecipients As ObjectDim objRecipient As Object
- Dim objAdressEntry As Object
- Dim lngCount As LongobjSession = CreateObject("MAPI.Session")
- Call objSession.Logon(, , False, False)
- objRecipients = objSession.AddressBook(, "Empfänger auswählen", , , 2, "an:", "cc:")
- If Err.Number = 0 Then
- For lngCount = 1 To objRecipients.Count
- objRecipient = objRecipients.Item(lngCount)
- objAdressEntry = objRecipient.AddressEntry
- MsgBox("Recipient: " & objRecipient.Name & vbCrLf & "AdressEntry: " & objAdressEntry.Name & vbCrLf & _
- "Recipient: " & objRecipient.Address & vbCrLf & "AdressEntry: " & objAdressEntry.Address)
- Next
- End If
- objSession = Nothing
- objRecipients = Nothing
- objRecipient = Nothing
- objAdressEntry = Nothing
- End Sub
Leider sind "Address", "Name" und "Type" die einzigen Informationen, die ich aus dem GAL heraus bekomme. Ich bin gestern schon den ganzen Tag mit G00gle auf diversen Seiten unterwegs gewesen, habe aber nirgendwo eine Auflistung oder eine andere Methode für den Zugriff auf die GAL gefunden.
Hat hier im Forum das Problem vielleicht schon mal jemand gelöst und kann mir auf die Sprünge helfen (Suchfunktion hat mich nicht weiter gehelft).
Danke für Eure Hilfe
Regulator