Cum să marcați automat întâlnirile de weekend ca private în Outlook

Pentru most utilizatorilor, întâlnirile programate în weekend sunt de obicei private. Prin urmare, doresc ca Outlook să marcheze și să arate automat astfel de întâlniri ca private. În acest articol, vom realiza acest lucru cu un pic de scripting.

Pentru a distinge mai ușor între întâlnirile de afaceri și cele private, Outlook permite utilizatorilor să marcheze întâlnirile ca private. În acest fel, veți găsi destul de convenabil și ușor să imprimați calendar fără întâlniri private. În această situație, este posibil să doriți ca Outlook să recunoască automat și să marcheze anumite întâlniri ca private. De exemplu, în general, întâlnirile din weekend sunt private, așa că doriți să lăsați Outlook să le marcheze automat ca private. Ulterior, vă vom îndruma să o atingeți.

Marcați automat întâlnirile de weekend ca private

1. La început, lansați editorul Outlook VBA conform „Cum să rulați codul VBA în Outlook".
2. Apoi, în fereastra „Microsoft Visual Basic pentru aplicații”, introduceți următorul cod în proiectul „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. După aceea, restart Outlook pentru a activa macrocomanda.
4. De acum înainte, de fiecare dată când creați o nouă întâlnire sau modificați o întâlnire existentă în weekend, Outlook o va marca automat ca privată.

Rezolvați problemele enervante ale Outlook

Este posibil să fi întâmpinat unele probleme atunci când ai de-a face cu Outlook, cum ar fi înghețarea neașteptată a aplicației, mesajele de eroare pop-up și așa mai departe. Când le suferi, ai fi îngrijorat. Te rog, calmeaza-te! Panica nu va ajuta la nimic, dar va agrava situația. În primul rând, puteți verifica dacă puteți accesa fișierul PST ca de obicei. Dacă da, trebuie să reparați fișierul PST, care poate fi realizat prin intermediul instrument de reparare inbox sau un instrument extern mai puternic, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparatie mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com