Cómo marcar automáticamente citas de fin de semana como privadas en Outlook

Para most usuarios, las citas programadas los fines de semana suelen ser privadas. Por lo tanto, quieren que Outlook marque y muestre automáticamente esas citas como privadas. En este artículo, haremos que esto se haga realidad con un poco de programación.

Para distinguir más fácilmente entre las citas de negocios y las privadas, Outlook permite a los usuarios marcar las citas como privadas. De esta manera, le resultará muy conveniente y fácil imprimir el calendario sin citas privadas. En esta situación, es posible que desee que Outlook reconozca automáticamente y marque citas específicas como privadas. Por ejemplo, en general, las citas de los fines de semana son privadas, por lo que debe permitir que Outlook las marque automáticamente como privadas. A continuación, te guiaremos para lograrlo.

Marcar automáticamente citas de fin de semana como privadas

1. Al principio, inicie el editor de Outlook VBA de acuerdo con "Cómo ejecutar código VBA en su Outlook".
2. Luego, en la ventana "Microsoft Visual Basic para Aplicaciones", coloque el siguiente código en el proyecto "ThisOutlookSession".

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objAppointment As Outlook.AppointmentItem

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

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olAppointment Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olAppointment Then
       Set objAppointment = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    Call MarkWeedendAppointmentPrivate(objAppointment)
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    If Name = "Start" Or Name = "End" Then
       Call MarkWeedendAppointmentPrivate(objAppointment)
    End If
End Sub

Private Sub MarkWeedendAppointmentPrivate(ByVal objAppointment As Outlook.AppointmentItem)
    Dim dStartDate As Date
 
    dStartDate = Format(objAppointment.Start, "Short Date")
 
    'If the appointment start falls on weekend
    Select Case Weekday(dStartDate)
           Case 7, 1
                'Mark it private
                objAppointment.Sensitivity = olPrivate
    End Select
End Sub

3. Después de eso, restart Outlook para activar la macro.
4. A partir de ahora, cada vez que cree una nueva cita o cambie una cita existente al fin de semana, Outlook la marcará automáticamente como privada.

Resuelva los molestos problemas de Outlook

Es posible que haya encontrado algunos problemas al tratar con Outlook, como congelación inesperada de aplicaciones, mensajes de error emergentes, etc. Al sufrirlos, estarías preocupado. ¡Por favor calmate! El pánico no ayudará en nada, pero hará que el caso empeore. En primer lugar, puede comprobar si puede acceder al archivo PST como de costumbre. Si es así, debe reparar el archivo PST, lo que se puede lograr a través del herramienta de reparación de la bandeja de entrada o una herramienta externa más poderosa, 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 reparación de mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com