Comment définir différents indicateurs de clic rapide pour différents types d'éléments Outlook

"Quick Click Flag" fait référence au drapeau par défaut lorsque vous cliquez une fois sur la colonne de drapeau d'un élément Outlook. Outlook vous permet uniquement de définir un indicateur de clic rapide, quel que soit le type d'élément. Ainsi, si vous souhaitez définir différents indicateurs de clic rapide en fonction des types d'éléments, vous pouvez utiliser la méthode présentée dans cet article.

Pour définir un indicateur de clic rapide, vous pouvez cliquer avec le bouton droit sur la colonne "indicateur" d'un élément et sélectionner "Définir un clic rapide". Ensuite, dans la petite boîte de dialogue contextuelle, choisissez le drapeau à volonté. Par défaut, Outlook appliquera cet indicateur de clic rapide pour tous les types d'éléments. Néanmoins, en réalité, la majorité des utilisateurs espèrent appliquer différents indicateurs de clic rapide à différents types d'éléments Outlook. Par conséquent, dans ce qui suit, nous vous apprendrons à l'obtenir en utilisant un exemple d'e-mails et de contacts.

Définir différents indicateurs de clic rapide pour différents types d'éléments Outlook

1. Au tout début, start Éditeur Outlook VBA avec référence à "Comment exécuter le code VBA dans votre Outlook" .
2. Ensuite, copiez le code VBA ci-dessous dans le projet "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. Ensuite, placez le curseur dans le "Application_Startup" et appuyez sur la touche "F5" pour activer cette macro.
4. Finalement, vous pouvez essayer.

• Sélectionnez un e-mail et cliquez sur la colonne "Signaler". Immédiatement, le drapeau "Demain" sera ajouté à l'e-mail.
• Ensuite, lancez un contact et cliquez sur la colonne "Signaler". Immédiatement, le drapeau "Aujourd'hui" sera ajouté au contact sélectionné.

Interdire les e-mails malveillants

Bien que la macro contribue beaucoup à notre travail dans Outlook, vous faites toujours attention aux macros, en particulier celles des e-mails externes inconnus. C'est parce que les macros peuvent contenir des virus, qui peuvent facilement attaquer vos données Outlook. Une fois que votre fichier Outlook est infecté, en plus de tuer les virus, vous devez réparer le fichier Outlook. Généralement, l'outil de réparation de la boîte de réception ne produira aucun effet. Votre seul recours est un tiers plus puissant et solvable Correctif Outlook outil, tel que DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparation mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com