Office: (Office 2010) Mails löschen per VBA in Access

Hi out there,

ich schlage mich mit damit herum, Mails aus einem Outlook-Verzeichnis per VBA in eine ACCESS-Datenbank einzulesen, wenn sie den entsprechenden Betreff haben. Dabei werden Attachements in entsprechende Unterordner gespeichert und der Mail-Inhalt in strukturierte Datenfelder übergeben (Die Mails werden von einem Web-Formular generiert).

Das Ganze funktioniert soweit auch prächtig, allerdings hake ich daran, dass die Mails nach dem Einlesen in ACCESS automatisch gelöscht werden sollen. Das funktioniert nicht, da immer nur jede 2. Mail gelöscht wird. Ich könnte mir vorstellen, dass die "for each"-Schleife durcheinanderkommt, da ja innerhalb der Schleife gelöscht wird, aber der Code wird in meherern Beispielen im Netz genau so beschrieben.

Kann mit jemand auf die Sprünge helfen?

Vielen Dank!
Code:

:)

 

Moin,
imho müsstest du dazu einen Zähler nutzen und die Liste dann von unten nach oben durchgehen, etwa so:
Code:

Ich weiß leider nicht, wie und wo Outlook einen solchen Index bereitstellt.
maike

 

\@maike: Es fehlt noch Step -1, denn nur Step +1 ist Standard.

 

Hi,

das steht ja im Code: Code:

Demnach könnte es folgendermaßen klappen: Code:

(nur eine Idee, ungetestet)

PS:
Besser wäre evtl. das Löschen des MailItems am Ende der Verarbeitungsschleife, dann ist sichergestellt, dass nicht zwischenzeitlich neue Mails hinzugekommen sind, die noch nicht übertragen wurden. Code:

 

Das mit dem direkten Löschen in der Verarbeitungsschleife hatte ich schon probiert, aber dann verhaspelt sich diese Schleife und "verschluckt" Mails ...

Gruß Jürgen

 

Beim löschen ändert sich ja der counter immer wieder, daher man nehme DoLoop
Code:

Hinweis: in den Runden klammern steht 1 und nicht i

G
JPA

 

Sorry, das ist klar, das eigentliche Problem bleibt bestehen, Löschschleifen sollte man stets rückwärts laufen lassen.
Aber dann hättest du die absolute Gewissheit, nur solche Mails zu löschen, die du auch verarbeitet hast.
Also versuche mal, meine beiden Lösungsvorschläge zu kombinieren...

Vielleicht so: Code:

 

Das kann ich im gezeigten Code nicht erkennen. Auslesen und löschen erfolgen in jeweils eigenen Schleifen und sollten bei gleichen Daten und gleichem Filter auch die gleichen Mails erfassen.

Wenn die Zuordnung dann doch nicht passt, könnte man so vorgehen:
Jedes Outlook-Item erhält bei Anlegen eine EntryID. Beim Auslesen der Mails könnte man diese EntryID erfassen (bspw. in einem Array), und für das Löschen sucht man jeweils die Mail mit der EntryID. Damit hätte man dann auch die Gewähr, dass genau die richtigen Mails zur Löschung kommen.

 

Vielen Dank für die nette Unterstützung. Der Vorschlag von Anne war letztlich zielführend.

So long ...

Jürgen