Mails speichern und umbenennen - Makroprogrammierung ?

[unknown]

Hallo zusammen,

ich stehe vor dem Problem, eine sehr große Menge E-Mails in Outlook 2003
zu Archivierungszwecken in einer ganz bestimmten Form zu speichern:

Alle Mails sollen in einem gemeinsamen Unterverzeichnis als *.msg Datei
gespeichert werden.

Das geht ja noch. Einfach alle Mails markieren und in diesen Ordner ziehen.

Diese *.msg Dateien sollen aber alle einzeln nach dem Schema

JJ-MM-TT-JK-<Empfänger>-<Betreffzeile>

für gesendete bzw.

JJ-MM-TT-JK-<Absender>-<Betreffzeile>

für empfangene Mails umbenannt werden.

Ich suche nun nach einer Möglichkeit, dies per Makro oder sonstwie zu
automatisieren,
andernfalls wäre ich damit eine Ewigkeit beschäftigt. Es müßte doch
möglich sein, unter
Outlook auf die Felder Absender, Empfänger und Sendedatum zuzugreifen.

Ich würd mich freuen, wenn mir das jemand anhand einer Beispiels
erklären könnte.

Daß diese Art der Mailarchivierung sachlich gesehen kompletter Blödsinn ist,
weiss ich auch, hilft mir in dem Fall aber keinen Schritt weiter.

[Michael Bauer [MVP - Outlook]]

Post by unknown
Hallo zusammen,
ich stehe vor dem Problem, eine sehr große Menge E-Mails in Outlook 2003
Alle Mails sollen in einem gemeinsamen Unterverzeichnis als *.msg Datei
gespeichert werden.
Das geht ja noch. Einfach alle Mails markieren und in diesen Ordner ziehen.
Diese *.msg Dateien sollen aber alle einzeln nach dem Schema
JJ-MM-TT-JK-<Empfänger>-<Betreffzeile>
für gesendete bzw.
JJ-MM-TT-JK-<Absender>-<Betreffzeile>
für empfangene Mails umbenannt werden.
Ich suche nun nach einer Möglichkeit, dies per Makro oder sonstwie zu
automatisieren,
andernfalls wäre ich damit eine Ewigkeit beschäftigt. Es müßte doch
möglich sein, unter
Outlook auf die Felder Absender, Empfänger und Sendedatum zuzugreifen.
Ich würd mich freuen, wenn mir das jemand anhand einer Beispiels
erklären könnte.
Daß diese Art der Mailarchivierung sachlich gesehen kompletter Blödsinn ist,
weiss ich auch, hilft mir in dem Fall aber keinen Schritt weiter.

Hallo,

einiges ist in diesem Beispiel erkärt:
http://www.vboffice.net/sample.html?mnu=2&lang=de&smp=7&cmd=showitem

Für Deine Zweck müßtest Du mithilfe einer For-Next-Schleife durch die
Items-Collection eines Ordners laufen und die Funktion SaveMailAsFile für
jedes Element aufrufen. Und in der Funktion kannst den Dateinamen nach
Belieben anpassen.