Hello!

My Problem: I want to find all MobileTelefonNumbers from the Outlook contacts.


Dim objKontakte As Object
'fldContacts is an Outlook-MAPI-Folder

Set objKontakte = fldContacts.Items.Find ("[MobileTelephoneNumber] <> '' ")
Do Until objKontakte Is Nothing
....
Set objKontakte = fldContacts.Items.FindNext
Loop


The first recordset is correct. But the next one (FindNext) is Nothing. Why?


Björn Hutzler