Wie sieht den deine Filteranweisung aus? Magst den aktuellen Code mit mir sharen?Außerdem hab ich die Indizierung der Kontakte nach SagHalts Vorschlag umgesetzt. Ich hab es nur noch nicht hinbekommen Konkakte mit dem Filter [LastModificationTime] zu finden. Irgendwas hab ich da übersehen.
Wie sieht den deine Filteranweisung aus? Magst den aktuellen Code mit mir sharen?
Hi Kruemelino,Ich habe für die Suche der Kontakte UserProperties für die Kontakte angelegt.
Wenn ich nach denen Suchen will muss ich den Beinhaltenden Ordner sagen, dass es sie gibt:
Ordner.UserDefinedProperties.Add(...
Das geht aber erst ab Outlook 2007!
Hast du da eine Lösung?
Sub GetPersonByPhoneNumber()
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set ContactFolder = olns.GetDefaultFolder(olFolderContacts)
Set Persons = ContactFolder.Items
Set RestrictedPersons= Persons.Restrict("[FritzboxDingsBums-Mobil] = '123456789 '")
End Sub
If CDate(EinloggZeit) <= TimeSerial(Hour(Time), Minute(Time) - 14, Second(Time) - 30) Or Erzwingen Then
formdata = "getpage=../html/de/menus/menu2.html&login:command/password=" _
& Crypt(FBPassWort, GetSetting("FritzBox", "Optionen", "Zugang", ""), False)
Text = HTTPTransfer("post", "http://" & FBAddr & "/cgi-bin/webcm", formdata)
If Not InStr(1, Text, "Anmeldung", vbTextCompare) = 0 Then