Come contrassegnare automaticamente gli appuntamenti del fine settimana come privati ​​in Outlook

Moduloost utenti, gli appuntamenti programmati nel fine settimana sono solitamente privati. Pertanto, desiderano che Outlook contrassegni e mostri automaticamente tali appuntamenti come privati. In questo articolo, lo realizzeremo con un po' di scripting.

Per distinguere più facilmente gli appuntamenti di lavoro da quelli privati, Outlook consente agli utenti di contrassegnare gli appuntamenti come privati. In questo modo, troverai abbastanza comodo e facile stampare il calendario senza appuntamenti privati. In questa situazione, potresti desiderare che Outlook riconosca automaticamente e contrassegni appuntamenti specifici come privati. Ad esempio, in genere, gli appuntamenti nel fine settimana sono privati, quindi si desidera consentire a Outlook di contrassegnarli automaticamente come privati. Successivamente, ti guideremo a raggiungerlo.

Contrassegna automaticamente gli appuntamenti del fine settimana come privati

1. Inizialmente, avvia l'editor VBA di Outlook in base a "Come eseguire il codice VBA in Outlook".
2. Quindi, nella finestra "Microsoft Visual Basic for Applications", inserire il seguente codice nel progetto "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. Successivamente, ristart Outlook per attivare la macro.
4. D'ora in poi, ogni volta che crei un nuovo appuntamento o modifichi un appuntamento esistente nel fine settimana, Outlook lo contrassegnerà automaticamente come privato.

Risolvi fastidiosi problemi di Outlook

È possibile che tu abbia riscontrato alcuni problemi quando hai a che fare con Outlook, come il blocco imprevisto dell'applicazione, messaggi di errore popup e così via. Quando li soffri, saresti preoccupato. Per favore calmati! Il panico non servirà a niente, ma farà peggiorare la situazione. In primo luogo, puoi verificare se puoi accedere al file PST come al solito. In tal caso, è necessario riparare il file PST, operazione che può essere eseguita tramite l'estensione strumento di riparazione della posta in arrivo o uno strumento esterno più potente, 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