Come impostare diversi flag di clic rapido per diversi tipi di elementi di Outlook

"Quick Click Flag" si riferisce al flag predefinito quando si fa clic sulla colonna flag di un elemento di Outlook. Outlook ti consente solo di impostare un flag di clic rapido indipendentemente dal tipo di elemento. Quindi, se desideri impostare diversi flag di clic rapido in base ai tipi di elementi, puoi utilizzare la modalità introdotta in questo articolo.

Per impostare il flag del clic rapido, puoi fare clic con il pulsante destro del mouse sulla colonna "flag" di un elemento e selezionare "Imposta clic rapido". Quindi, nella piccola finestra di dialogo popup, scegli la bandiera a piacimento. Per impostazione predefinita, Outlook applicherà questo flag di clic rapido per tutti i tipi di elementi. Tuttavia, in realtà, la maggior parte degli utenti spera di applicare diversi flag di clic rapidi a diversi tipi di elementi di Outlook. Pertanto, di seguito, ti insegneremo a ottenerlo utilizzando un esempio di e-mail e contatti.

Imposta diversi flag di clic rapido per diversi tipi di elementi di Outlook

1. All'inizio, start Editor VBA di Outlook con riferimento a "Come eseguire il codice VBA in Outlook".
2. Quindi, copia il codice VBA di seguito nel progetto "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. Successivamente, posiziona il cursore nel file "Application_Startup” e premere il tasto “F5” per attivare questa macro.
4. Alla fine, puoi provare.

• Seleziona un'e-mail e fai clic sulla colonna "Flag". Immediatamente, il flag "Domani" verrà aggiunto all'e-mail.
• Quindi, proponi un contatto e fai clic sulla colonna "Flag". Immediatamente, il flag "Oggi" verrà aggiunto al contatto selezionato.

Proibisci email dannose

Sebbene la macro contribuisca molto al nostro lavoro in Outlook, fai comunque attenzione alle macro, in particolare quelle delle e-mail esterne sconosciute. È perché le macro possono contenere virus, che possono attaccare facilmente i tuoi dati di Outlook. Una volta che il tuo file di Outlook è stato infettato, oltre a uccidere i virus, devi riparare il file di Outlook. In generale, lo strumento di riparazione della posta in arrivo non produrrà effetti. Il tuo unico ricorso è una terza parte più potente e degna di credito Correzione di Outlook strumento, come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparazione mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com