Zugriff auf das Adressbuch von Outlook

Sobby1969 · 5. Dezember 2023, 09:46

Hallo,

kann mir mal bitte jemand helfen.
Wie kann ich auf das Adressbuch von Outlook zugreifen?

besten Dank im Voraus für die Hilfe

Gruß Sobby

VB1963 · 5. Dezember 2023, 10:36

Ich habe deinen Titel in die Suchmaschine eingegeben...
vbarchiv.net/tipps/tipp_567-zu…auf-outlook-kontakte.html
Vlt. hilft's dir...

Marcus Gräfe · 5. Dezember 2023, 16:23

Wobei der Code dort für VB6 und von 2002 ist, also vmtl. geht's in .NET "schöner" bzw. besser. Noch dazu wo der TE offenbar mit der neuesten .NET-Version unterwegs ist (laut Label).

VB1963 · 5. Dezember 2023, 18:32

Huch - Das hab ich übersehen...

INOPIAE · 6. Dezember 2023, 06:03

Sobby1969 schrieb:

Wie kann ich auf das Adressbuch von Outlook zugreifen?

Worauf willst Du genau zugreifen?
Die persönlichen Kongtaktge, das Adressbuch des Unternehmens ...?

Sobby1969 · 6. Dezember 2023, 06:24

Es sind die Kontakte eines Unternehmens ( Stadtverwaltung)

INOPIAE · 6. Dezember 2023, 10:18

Schreibst Du in VB.Net oder VBA?

Schau Dir mal diese Links an:
https://www.mrexcel.com/board/threads/excel-vba-code-to-extract-all-outlook-global-address-emails-and-userid.1112003/
learn.microsoft.com/de-de/offi…ddress-lists-with-a-store

Sobby1969 · 8. Dezember 2023, 07:35

habe mal folgendes probiert:

VB.NET-Quellcode

Dim findLastName As String
Dim oApp As Outlook.Application = New Outlook.Application()
Dim folderContacts As Outlook.MAPIFolder = oApp.ActiveExplorer().Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
Dim searchFolder As Outlook.Items = folderContacts.Items
Dim counter As Integer = 0
For Each foundContact As Outlook.ContactItem In searchFolder
If foundContact.LastName.Contains(findLastName) Then
foundContact.Display(False)
counter = counter + 1
End If
Next
MsgBox("You have " & counter & " contacts with last names that contain " & findLastName & ".")

dann kommt folgeder Fehler

Fehler BC32023 Der Ausdruck ist vom Typ "Items". Dies ist kein Sammlungstyp.
bezieht sich auf searchFolder

xored · 8. Dezember 2023, 08:20

Probier mal das:

VB.NET-Quellcode

Dim findLastName As String
Dim oApp As Outlook.Application = New Outlook.Application()
Dim folderContacts As Outlook.MAPIFolder = oApp.ActiveExplorer().Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
Dim searchFolder As Outlook.Items = folderContacts.Items
Dim counter As Integer = 0
For Each item As Object In searchFolder
If TypeOf item Is Outlook.ContactItem Then
Dim foundContact As Outlook.ContactItem = DirectCast(item, Outlook.ContactItem)
If foundContact.LastName IsNot Nothing AndAlso foundContact.LastName.Contains(findLastName) Then
foundContact.Display(False)
counter = counter + 1
End If
End If
Next
MsgBox("You have " & counter & " contacts with last names that contain " & findLastName & ".")

Sobby1969 · 9. Dezember 2023, 11:00

Der Fehler ist immer noch da da es an der Variablen (object) searchFolder liegt.
habe den Fehler gefunden
Lag am import
hatte in den Verweisen Outlook . diesen muste ich löschen und den Verweis Microsoft.Office.Interop.Outlook hinzufügen.

und den import ändern.

VB.NET-Quellcode

Imports Outlook = Microsoft.Office.Interop.Outlook

jetzt funktioniert es

Danke nochmal an alle

Zugriff auf das Adressbuch von Outlook

Zugriff auf das Adressbuch von Outlook

Sobby1969 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

5 Benutzer haben hier geschrieben