Outlook-Kontakte einlesen - liest nicht alle aus..
kle
mit folgendem Code, lese ich in eine Userform Kontakte eines vorher ausgewählten Ordners aus meinem Outlook-Kontakte-Ordner aus. Ansich klappt alles super, aber seit kurzem musste ich und andere User der Funktion, dass nicht! alle Kontakte aus dem Ornder eingelesen werden.
8 von 9 Ordnern klappt es 100%ig und in einem halt nicht. Da sind 1098 Kontakte drin, einlesen tut er nur 1077. Und bei einer Kollegin sind es 345 von 403 Konkten...
Woran kann es liegen und wie kann ich prüfen ?! bzw. ändern ?!
Gibt es eine ähnliche Funktion, um die Kontakte auszulesen - zum Test ?!?
Gruß und vielen dank!
Kay
Code:
' Einlesen der Kontakte in die Listview
Private Sub Lese_Kontakte()
Dim oCon As Object
Dim i As Integer
i = 0
'On Error Resume Next
' alle Kontakte des ausgewählten Kontakt-Ordners
For Each oCon In objFolder.Items
i = i + 1
With oCon
ListView1.ListItems.Add i, , .LastName
ListView1.ListItems(i).SubItems(1) = .FirstName
ListView1.ListItems(i).SubItems(2) = .Title
ListView1.ListItems(i).SubItems(3) = .CompanyName
ListView1.ListItems(i).SubItems(4) = .BusinessAddressPostalCode
ListView1.ListItems(i).SubItems(5) = .BusinessAddressCity
End With
Label3.Caption = ListView1.ListItems.Count
Next oCon
LVColumnWidth ListView1, False ' Spaltenbreite anpassen
End Sub