Mails im .msg-Format umbenennen: Schritt-für-Schritt-Anleitung
Schritt-für-Schritt-Anleitung
Um gespeicherte Mails im .msg-Format in einem Verzeichnis (inklusive Unterverzeichnissen) umzubenennen, kannst du folgenden VBA-Code verwenden. Dieser greift auf die Eigenschaften der Mails zu und benennt sie entsprechend um.
- Öffne Outlook und drücke
ALT + F11, um den VBA-Editor zu starten.
- Füge ein neues Modul hinzu, indem du rechtsklickst und „Einfügen“ > „Modul“ wählst.
- Kopiere den folgenden Code in das Modul:
Sub RenameEmails()
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.MailItem
Dim newname As String
Dim path As String
Dim lngVarSZ As Long
Const strReplaceSZ As String = "_.;:_#äüö+?)=%$&/\"
Dim Fso As Object
Dim SearchFolder As Object
path = "I:\Mails\" ' Pfad zu deinem Verzeichnis
Set Fso = CreateObject("Scripting.Filesystemobject")
Set SearchFolder = Fso.GetFolder(path)
For Each EachFil In SearchFolder.Files
Set myItem = myOlApp.CreateItemFromTemplate(EachFil)
newname = Format(myItem.ReceivedTime, "yyMMdd hhmmss") & " v " & myItem.SenderName & " a " & myItem.To & " " & myItem.Subject
For lngVarSZ = 1 To Len(strReplaceSZ)
newname = Replace(newname, Mid(strReplaceSZ, lngVarSZ, 1), "")
Next lngVarSZ
newname = path & newname & ".msg"
Name EachFil As newname
Next EachFil
End Sub
- Passe den
path-Wert auf das Verzeichnis an, in dem deine .msg-Dateien gespeichert sind.
- Schließe den Editor und führe das Makro über
ALT + F8 aus.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode wäre, die Mails direkt in Outlook zu exportieren und dort umzubenennen. Diese Vorgehensweise kann jedoch umständlicher sein, wenn du bereits gespeicherte .msg-Dateien hast. Eine andere Möglichkeit ist die Verwendung von Drittanbieter-Tools, die speziell für das Umbenennen von Mails im .msg-Format entwickelt wurden.
Praktische Beispiele
Tipps für Profis
- Verwende Kommentare im Code, um den Überblick zu behalten.
- Teste den Code zuerst in einem sicheren Verzeichnis, um versehentliches Überschreiben von wichtigen Dateien zu vermeiden.
- Optimiere den Code, um die Leistung zu verbessern, wenn du mit vielen Mails arbeitest.
FAQ: Häufige Fragen
1. Kann ich den Code auch für andere Dateiformate verwenden?
Ja, jedoch musst du sicherstellen, dass der Dateityp unterstützt wird und die entsprechenden Eigenschaften verfügbar sind.
2. Was passiert, wenn eine Datei mit dem neuen Namen bereits existiert?
Der Code wird einen Fehler auslösen, wenn du versuchst, eine Datei mit einem Namen zu erstellen, der bereits vorhanden ist. Du kannst eine Überprüfung einfügen, um dies zu vermeiden.
3. Funktioniert dieser Code in allen Outlook-Versionen?
Der Code sollte in den meisten modernen Outlook-Versionen funktionieren, die VBA unterstützen. Prüfe jedoch die spezifischen Funktionen deiner Version.