For Each Mail ...
30.07.2007 11:17:00
gerwas
Ich sitze hier vor einem Phänomen, was ich mir nicht erklären kann!
Hintergrund ist folgendes:
In einer Schleife lese ich per Macro OutLook-Postfächer(Posteingang) aus und markiere eMails, die ich verarbeitet habe als Unread=False. Alle nicht verarbeiteten Inhalte des Postfaches sind nach Durchlauf der Schleife markiert als Unrad=True.
Anschließen sollen in einer anderen Schleife die Unrad=False markierten verschoben werden. Dafür verwende ich die nachfolgende Routine:
Set oF=CreateObject("Outlook.Application").GetNamespace("MAPI")
For Each Mail in oF.GetDefaultFolder(olFolderInbox).Items
a=a+1
If Mail.Unread=True Then Mail.Move oF.Folders("abgearbeitet")
Next
Soweit sollte es klappen - tut es aber nicht!
Die Mails z.B. 3,4,7,9,12,13,16 (von insgasamt 16) sind Unread=True markiert
Die Schleife wird mit a=12 verlassen! Warum, oder was mache ich falsch?
gruss GerWas