Outlook > Item.delete
12.09.2006 16:04:33
Boris
ich greife per Makro aus Excel auf die Outlook Inbox zu und protokoliere die Senden und Empfangen Zeiten, die Absender, die Betreffzeile. Nachdem ich die Daten habe, möchte ich alle Mails in der Inbox löschen.
Dies mache (versuche) ich mit folgendem Code:
Sub Mails_löschen()
Dim Out As Outlook.MAPIFolder
Dim Item As Object
Set Out = GetObject("", "Outlook.Application").GetNamespace("Mapi"). _
GetDefaultFolder(olFolderInbox).Folders("Preise")
For Each Item In Out.Items
Item.Delete
Next Item
End Sub
Interessanterweise tritt folgender Effekt ein: In der Inbox stehen 10 Mails, führe ich das Makro Schritt für Schritt aus, sehe ich, dass zuerst die oberste Mail (Mail1), dann Mail2, dann Mail3 gelöscht werden. Dann macht das Makro einen Sprung zu Mail8. Nachdem das Makro durchgelaufen ist bleiben also noch Mail4/5/6/7 in der Inbox stehen.
Kennt jemand die Ursache oder die (natürlich besser!) Lösung für dieses Problem?
Gruss
Boris