Email speichern nach Datum Empfänger Absender Betreff...

Hallo,
ich nutze seit "Jahren" mailsave http://excel-baustelle.de/mailsave.html . Eigentlich kann das Outlook Addin alles was ich benötige. Es benennt die Mail automatisch nach Datum Empfänger Absender die Betreffzeile kann ich selber editieren.
Einziger Nachteil ist, das es nicht zum speichern der Mail die Favoriten von Windows Datei Explorer verwendet. Dadurch verliere ich leider immer richtig Zeit.
Da in einem "langverzweigten" Netzwerk dieses richtig lange dauert. Den Programmierer habe ich schon angeschrieben, doch leider bisher noch keine Antwort bekommen.
Kennt jemand eine vergleichbare schlanke Software? Es geht mir wirklich nur um das abspeichern "halbautomatisch" nach Datum Empfänger..
und es sollte nur die Betreffzeile der Email editierbar sein.

Danke schon mal!

So ist es

So hätte ich es gerne.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 214502

Url: https://administrator.de/forum/email-speichern-nach-datum-empfaenger-absender-betreff-214502.html

Ausgedruckt am: 23.04.2025 um 06:04 Uhr

4 Kommentare

Neuester Kommentar

Hallo Horstvogel,
also beim Test von der aktuellen Version von Mailsave kommt bei mir der simple "FolderBrowser-Dialog" ohne Seitenleiste.

Ich könnte Dir den Code aber so umschreiben das er dieses Dialogfeld anzeigt, mit einem Workaround über ein Excel-Object.

Grüße Uwe

Uwe, da muss ich mich entschuldigen. Da habe ich das falsche Bild eingefügt. Ok, so halbwegs habe ich das verstanden. Aber eine Software die meinen Vorstellungen entspricht kennst Du leider nicht? Bild habe ich jetzt oben geändert.
Danke!

Habe gerade noch eine Lösung gefunden MailSave so anzupassen das es so geht wie du es willst. Wenn du willst schicke ich Dir die angepasste VbaProject.OTM via Link in einer PM.
Den gesamten Code des Projects darf ich hier nicht posten.
Aber hier ein Ausschnitt aus dem Code:

...
...
Dim objXL, fd
Set objXL = CreateObject("Excel.Application")  
Set fd = objXL.FileDialog(4)
With fd
    .InitialFileName = StartVerzeichnis
    .Title = szDialogTitle
    If .Show = -1 Then
        VerzeichnisSuchen = fd.SelectedItems(1)
    Else
        VerzeichnisSuchen = ""  
    End If
End With
objXL.Quit
Set fd = Nothing
Set objXL = Nothing
...
...