---

Hallo Liebe Kollegen!

Kennt oder hat irgend jemand so ein Programm um Emails aus einem Ordner
in einzelne Dateien zu Schreiben (Outlook 2003)
Der neue Dateiname soll dann zb das Empfangsdatum und den Betreff enthalten ev auch noch den Sender

Mit Outlook VBA Programmierung habe ich leider noch zu wenig Erfahrung

Mfg Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Chris,

das Objectmodel von Outloock ist mir auch nicht so geläufig.

mal als Anregung

Sub Sichern()

Dim myFO As Object
Dim myIem As Object
Dim Path As String

Set myFOItem = GetNamespace("MAPI").PickFolder.Items
Set myItem = myFOItem.GetFirst

Do Until myItem Is Nothing
If myItem.Class = olMail Then
    Path = "D:\Mails\" & _
    CStr(Day(myItem.ReceivedTime)) & "_" & _
    CStr(Month(myItem.ReceivedTime)) & "_" & _
    CStr(Year(myItem.ReceivedTime)) & "_" & _
    myItem.Subject & ".txt"
    myItem.SaveAs Path, olTXT
End If
Set myItem = myFOItem.GetNext
Loop
End Sub

Natürlich kann man auch den Zielordner per Dialog abfragen oder nur die selectierten Items bearbeiten.

Beachte weiterhin folgendes:

- Im Betreff können Zeichen enthalten sein, welche für Dateinamen nicht zugelassen sind (:<>|)
- Der entstehende dateiname ist nicht zwagsläufig eindeutig, Dateien weden überschrieben
- Ewentuell vorhandene Anlagen weden nicht beachtet

Falls du noch konkrete Fragen hast helfe ich gern weiter

Gruß
Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke sehr ich glaub das hilft schon mal sehr gut!
Lg Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP