VBA ContactItems

XsilentX

Mitglied
Hallo!!

Ich versuche folgenden Code zu verwenden um in 2 verschiedenen Ordner, Kontakte mit dem gleichem Speichernamen zu finden:

Code:
......
For i = olSourceFolder.Items.Count To 1 Step -1
 Set CheckContakt2 = olSourceFolder.Items(i)
 Set CheckContakt1 = olDestFolder.Items.Find(CheckContakt2.FileAs)
.....

Beim Debuggen bringt er mir den Fehler: Die Bedingung ist ungültig!

Bitte um rasche Hilfe damit ich weiter arbeiten kann ;)

mfg silent
 
Zuletzt bearbeitet:

Neue Beiträge

Zurück