Como definir diferentes sinalizadores de clique rápido para diferentes tipos de itens do Outlook

“Quick Click Flag” refere-se ao sinalizador padrão quando você clica uma vez na coluna do sinalizador de um item do Outlook. O Outlook permite apenas que você defina um sinalizador de clique rápido, independentemente do tipo de item. Portanto, se você deseja definir diferentes sinalizadores de clique rápido com base nos tipos de item, pode usar a maneira apresentada neste artigo.

Para definir o sinalizador de clique rápido, você pode clicar com o botão direito do mouse na coluna “sinalizador” de um item e selecionar “Definir clique rápido”. Em seguida, na pequena caixa de diálogo pop-up, escolha o sinalizador à vontade. Por padrão, o Outlook aplicará esse sinalizador de clique rápido para todos os tipos de itens. No entanto, na realidade, a maioria dos usuários espera aplicar diferentes sinalizadores de clique rápido a diferentes tipos de itens do Outlook. Portanto, a seguir, ensinaremos como obtê-lo usando um exemplo de e-mails e contatos.

Definir diferentes sinalizadores de clique rápido para diferentes tipos de itens do Outlook

1. Logo no início, start Editor VBA do Outlook com referência a “Como executar o código VBA no seu Outlook".
2. Em seguida, copie o código VBA abaixo para o projeto “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. Depois, coloque o cursor no “Application_Startup” e pressione a tecla “F5” para ativar esta macro.
4. Eventualmente, você pode tentar.

• Selecione um e-mail e clique na coluna “Sinalizar”. Imediatamente, o sinalizador “Amanhã” será adicionado ao e-mail.
• Em seguida, lance um contato e clique na coluna “Sinalizar”. Imediatamente, o sinalizador “Hoje” será adicionado ao contato selecionado.

Proibir e-mails maliciosos

Embora a macro contribua muito para o nosso trabalho no Outlook, você ainda fica atento às macros, especialmente aquelas de e-mails externos desconhecidos. É porque as macros podem conter vírus, que podem atacar seus dados do Outlook com facilidade. Depois que seu arquivo do Outlook estiver infectado, além de matar os vírus, você precisará reparar o arquivo do Outlook. Geralmente, a ferramenta de reparo da caixa de entrada não produzirá efeitos. Seu único recurso é um terceiro mais potente e digno de crédito Correção do Outlook ferramenta, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo consertar mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com