Cómo configurar diferentes indicadores de clic rápido para diferentes tipos de elementos de Outlook

“Indicador de clic rápido” se refiere al indicador predeterminado cuando hace un solo clic en la columna del indicador de un elemento de Outlook. Outlook solo le permite establecer un indicador de clic rápido independientemente del tipo de elemento. Por lo tanto, si desea establecer diferentes indicadores de clic rápido en función de los tipos de elementos, puede utilizar la forma presentada en este artículo.

Para establecer el indicador de clic rápido, puede hacer clic con el botón derecho en la columna "indicador" de un elemento y seleccionar "Establecer clic rápido". Luego, en el pequeño cuadro de diálogo emergente, elija la bandera a voluntad. De forma predeterminada, Outlook aplicará este indicador de clic rápido para todo tipo de elementos. Sin embargo, en realidad, la mayoría de los usuarios esperan aplicar diferentes indicadores de clic rápido a diferentes tipos de elementos de Outlook. Por lo tanto, a continuación, le enseñaremos a obtenerlo usando un ejemplo de correos electrónicos y contactos.

Establecer diferentes indicadores de clic rápido para diferentes tipos de elementos de Outlook

1. Al principio, start Editor de Outlook VBA con referencia a "Cómo ejecutar código VBA en su Outlook".
2. Luego, copie el código VBA a continuación en el proyecto "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. Luego, coloque el cursor en "Application_Startup ”y presione la tecla“ F5 ”para activar esta macro.
4. Eventualmente, puedes intentarlo.

• Seleccione un correo electrónico y haga clic en la columna "Marcar". De inmediato, se agregará la bandera "Mañana" al correo electrónico.
• Luego, presenta un contacto y haz clic en la columna "Marcar". Inmediatamente, se agregará la bandera "Hoy" al contacto seleccionado.

Prohibir correos electrónicos maliciosos

Aunque la macro contribuye mucho a nuestro trabajo en Outlook, aún debe estar atento a las macros, especialmente las de los correos electrónicos externos desconocidos. Es porque las macros pueden contener virus, que pueden atacar sus datos de Outlook con facilidad. Una vez que su archivo de Outlook está infectado, además de eliminar los virus, debe reparar el archivo de Outlook. Generalmente, la herramienta de reparación de la bandeja de entrada no producirá efectos. Su único recurso es un tercero más potente y solvente Corrección de Outlook herramienta, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com