Festlegen verschiedener Schnellklick-Flags für verschiedene Arten von Outlook-Elementen

"Schnellklick-Flag" bezieht sich auf das Standard-Flag, wenn Sie einmal auf die Flag-Spalte eines Outlook-Elements klicken. In Outlook können Sie unabhängig vom Elementtyp nur ein Schnellklick-Flag setzen. Wenn Sie also je nach Artikeltyp unterschiedliche Schnellklick-Flags setzen möchten, können Sie die in diesem Artikel beschriebene Methode verwenden.

Um das Schnellklick-Flag zu setzen, können Sie mit der rechten Maustaste auf die Spalte „Flag“ eines Elements klicken und „Schnellklick setzen“ auswählen. Wählen Sie dann im kleinen Popup-Dialogfeld die Flagge nach Belieben aus. Standardmäßig wendet Outlook dieses Schnellklick-Flag für alle Arten von Elementen an. In der Realität hofft die Mehrheit der Benutzer jedoch, unterschiedliche Schnellklick-Flags auf verschiedene Arten von Outlook-Elementen anwenden zu können. Daher werden wir Ihnen im Folgenden anhand eines Beispiels für E-Mails und Kontakte beibringen, wie Sie es erhalten.

Festlegen verschiedener Schnellklick-Flags für verschiedene Arten von Outlook-Elementen

1. Gleich zu Beginn start Outlook VBA-Editor mit Verweis auf „So führen Sie VBA-Code in Outlook aus".
2. Kopieren Sie dann den folgenden VBA-Code in das Projekt "ThisOutlookSession".

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    ElseIf TypeOf objExplorer.Selection.Item(1) Is ContactItem Then
       Set objContact = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objMail.IsMarkedAsTask = True Then
          '"Tomorrow" Flag for Emails
          objMail.TaskStartDate = Now + 1
          objMail.Save
       End If
   End If
End Sub

Private Sub objContact_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objContact.IsMarkedAsTask = True Then
          '"Today" Flag for Contacts
          objContact.TaskStartDate = Date & " 17:00"
          objContact.Save
       End If
    End If
End Sub

3. Setzen Sie anschließend den Cursor in das Feld „Application_StarUnterprogramm tup “und drücken Sie die Taste„ F5 “, um dieses Makro zu aktivieren.
4. Schließlich können Sie es versuchen.

• Wählen Sie eine E-Mail aus und klicken Sie auf die Spalte "Flag". Sofort wird der E-Mail das Flag "Morgen" hinzugefügt.
• Stellen Sie dann einen Kontakt auf und klicken Sie auf die Spalte „Flag“. Sofort wird dem ausgewählten Kontakt das Flag "Heute" hinzugefügt.

Verbieten Sie böswillige E-Mails

Obwohl Makros viel zu unserer Arbeit in Outlook beitragen, achten Sie immer noch auf Makros, insbesondere solche aus externen unbekannten E-Mails. Dies liegt daran, dass die Makros möglicherweise Viren enthalten, die Ihre Outlook-Daten problemlos angreifen können. Sobald Ihre Outlook-Datei infiziert ist, müssen Sie nicht nur die Viren töten, sondern auch die Outlook-Datei reparieren. Im Allgemeinen hat das Reparaturwerkzeug für den Posteingang keine Auswirkungen. Ihr einziges Resort ist ein stärkerer und kreditwürdiger Dritter Outlook beheben Werkzeug, wie z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf reparieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX