Outlook ermöglicht es Benutzern, E-Mails mit einer benutzerdefinierten Folgeerinnerung und einem Fälligkeitsdatum zu kennzeichnen. Sie müssen es jedoch manuell auswählen und aktivieren. In diesem Artikel erfahren Sie, wie Sie dies automatisch über VBA erreichen.
Outlook stellt uns die „Flag“-Funktion zur Verfügung, mit der wir kritische E-Mails viel bequemer nachverfolgen können. Damit können wir nicht nur eine E-Mail verfassen, sondern auch ein bevorzugtes Flaggensymbol auswählen, ein bestimmtes Fälligkeitsdatum zuweisen und sogar eine benutzerdefinierte Erinnerung für die E-Mail festlegen. Ohne Zweifel ist es sehr praktisch.
Doch viele Nutzer haben noch einen anderen Wunsch. Sie hoffen, dass Outlook automatisch ein relativ festes benutzerdefiniertes Fälligkeitsdatum und eine Erinnerungszeit für die gekennzeichneten E-Mails festlegen kann, z. B. 3 Tage nach dem heutigen Tag, 1 Woche nach dem heutigen Tag usw. Um ehrlich zu sein, verfügt Outlook über keine solche native Funktion. Daher müssen Sie auf andere Methoden zurückgreifen, beispielsweise auf VBA. Hier zeigen wir Ihnen, wie Sie Outlook VBA verwenden, um diese Anforderung zu realisieren. Lesen Sie weiter, um mehr darüber zu erfahren.
Legen Sie beim Markieren einer Outlook-E-Mail automatisch eine Erinnerung und ein Fälligkeitsdatum fest
- Starten Sie gleich zu Beginn Ihr Outlook-Programm.
- Anschließend können Sie die Tastenkombination „Alt + F11“ drücken, um Zugriff auf den VBA-Editor zu erhalten.
- Als nächstes müssen Sie im folgenden „Microsoft Visual Basic für Applikationen“-Fenster auf der linken Seite auf das Projekt „ThisOutlookSession“ doppelklicken.
- Kopieren Sie anschließend die folgenden VBA-Codes und fügen Sie sie ein.
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
Dim objMail As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
If (objMail.IsMarkedAsTask = True) And (objMail.FlagStatus <> olFlagComplete) Then
'You can change the following lines as per your actual needs
With objMail
.FlagRequest = "Type the custom follow-up notes here"
.MarkAsTask olMarkNextWeek
'Set a custom due date
.TaskDueDate = Now + 7
.ReminderSet = True
'Set a custom reminder time
.ReminderTime = Now + 6.5
.Save
End With
End If
End If
End Sub
- Danach sollten Sie diesen Code wie gewohnt signieren.
- Beenden Sie später den VBA-Editor und ändern Sie Ihre Outlook-Makroeinstellungen, um nur die digital signierten Makros zu aktivieren.
- Zum Schluss müssen Sie Outlook neu starten, um das neue Makro zu aktivieren. Danach können Sie es ausprobieren.
- Klicken Sie auf das Flaggensymbol am Ende eines E-Mail-Elements.
- Die Flagge wird sofort automatisch in das Symbol „Nächste Woche-Flagge“ geändert.
- Und das Fälligkeitsdatum und die Erinnerungszeit werden entsprechend Ihrer Voreinstellung in den Codes eingestellt.
Keine Panik, wenn Outlook abstürzt
Wenn Outlook unerwartet abstürzt, geraten die meisten Benutzer in Panik, weil sie befürchten, dass ihre Outlook-Daten beschädigt werden. Doch mit den richtigen Vorkehrungen besteht kein Grund zur Panik. Die wichtigste Maßnahme ist die regelmäßige Sicherung der PST-Dateien. Darüber hinaus können Sie auch ein bewährtes Tool verwenden, um Ihre Daten wiederherzustellen. Outlook beschädigt Daten wie DataNumen Outlook Repair.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL Fix und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX


