Um Ihr Postfach in Ordnung zu halten, können Sie sich daran gewöhnen, bestimmte E-Mails in einem bestimmten Ordner zu speichern. In diesem Artikel erfahren Sie, wie Sie mit Outlook VBA die E-Mail nach der Weiterleitung automatisch verschieben.
Das Speichern ähnlicher E-Mails in einem bestimmten E-Mail-Ordner ist ein guter Tipp, um eine große Menge an E-Mails zu verwalten. Es ist sicher, dass verschiedene Benutzer ihre eigenen Kriterien für die E-Mail-Klassifizierung und -Verwaltung haben müssen. Beispielsweise möchten Sie Ihre E-Mails möglicherweise lieber nach Ihren Folgeaktionen klassifizieren, z. B. Antworten, Weiterleiten usw. Wenn Sie die E-Mail beim Weiterleiten automatisch in einen bestimmten Ordner verschieben möchten, z. B. „Weitergeleitet“, können Sie die folgenden Vorgänge und VBA-Codes anwenden, um sie schnell abzurufen.
Verschieben Sie die E-Mail automatisch in einen bestimmten Ordner, nachdem Sie sie weitergeleitet haben
- Starten Sie zunächst Outlook.
- Wechseln Sie dann zur Registerkarte „Entwickler“.
Hinweis: Wenn Sie diese Registerkarte nicht finden können, sollten Sie zunächst zu „Datei“ > „Optionen“ > „Menüband anpassen“ gehen, um sie zu aktivieren.
- Sobald diese Registerkarte sichtbar ist, können Sie darunter die Schaltfläche „Visual Basic“ suchen und darauf klicken.
- Anschließend öffnet sich ein neues „Microsoft Visual Basic for Applications“-Fenster. Darin sollten Sie auf der linken Seite auf das Projekt „ThisOutlookSession“ doppelklicken, um es zu öffnen.
- Anschließend können Sie die folgenden VBA-Codes kopieren und einfügen.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem
Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub objExplorer_SelectionChange()
On Error Resume Next
Set objMail = objExplorer.Selection.Item(1)
End Sub
Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
Dim objInboxFolder As Folder
Dim objTargetFolder As Folder
Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
On Error Resume Next
Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
If objTargetFolder Is Nothing Then
Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
End If
objMail.Categories = "Forwarded"
objMail.Move objTargetFolder
End Sub
- Später müssen Sie das neue VBA-Projekt signieren.
- Verwenden Sie zunächst das integrierte Tool „Digitale Zertifikate für VBA-Projekte“, um ein digitales Zertifikat zu erstellen.
- Weisen Sie dann das Zertifikat diesem Makro zu, wie im folgenden Screenshot:
- Später können Sie Ihre Makroeinstellungen ändern, um digital signierte Makros zuzulassen.
- Endlich restart Outlook, um das neue Makro zu aktivieren. Wenn Sie von nun an eine E-Mail auswählen und auf die Schaltfläche „Weiterleiten“ klicken, wird die E-Mail sofort in den Ordner „Weitergeleitet“ verschoben.
Vermeiden Sie unerwünschte Outlook-PST-Datenbeschädigungen
Einer von ihnenost Ein Problem, das Outlook-Benutzer seit langem plagt, ist, dass Outlook anfällig für Korruption ist. Das heißt, Leiden PST-Schaden ist eine häufige Angelegenheit. Um den Verlust von Outlook-Daten zu verhindern, sollten Sie daher besser eine konsistente und aktuelle Sicherung Ihrer PST-Daten erstellen.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich korrupt SQL Server und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX