Kaip automatiškai pažymėti savaitgalio susitikimus kaip privačius programoje „Outlook“.

„Outlook“ sprendimai Rugsėjis 29, 2025

Dėl most vartotojų, savaitgaliais suplanuoti susitikimai dažniausiai būna privatūs. Todėl jie nori, kad „Outlook“ automatiškai pažymėtų ir rodytų tokius susitikimus kaip privačius. Šiame straipsnyje mes tai įgyvendinsime šiek tiek pakoreguodami scenarijus.

Kad būtų lengviau atskirti verslo ir asmeninius susitikimus, „Outlook“ leidžia vartotojams pažymėti susitikimus kaip privačius. Tokiu būdu jums bus gana patogu ir lengva spausdinti kalendorių be asmeninių susitikimų. Esant tokiai situacijai, galbūt norėsite, kad jūsų „Outlook“ automatiškai atpažintų ir pažymėtų konkrečius susitikimus kaip privačius. Pavyzdžiui, paprastai savaitgalio susitikimai yra privatūs, todėl norite leisti „Outlook“ automatiškai pažymėti juos kaip privačius. Vėliau mes padėsime jums tai pasiekti.

Automatiškai pažymėkite savaitgalio susitikimus kaip privačius

Iš pradžių paleiskite „Outlook VBA“ redaktorių pagal „Kaip paleisti VBA kodą „Outlook“.".
Tada lange „Microsoft Visual Basic for Applications“ įdėkite šį kodą į projektą „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

Po to atstart Outlook, kad suaktyvintumėte makrokomandą.
Nuo šiol kiekvieną kartą, kai sukuriate naują susitikimą arba pakeičiate esamą susitikimą į savaitgalį, „Outlook“ automatiškai pažymės jį kaip privatų.

Išspręskite erzinančias Outlook problemas

Gali būti, kad susidūrėte su kai kuriomis problemomis dirbdami su „Outlook“, pvz., netikėtu programos užstrigimu, iššokančiais klaidų pranešimais ir pan. Jas kentėdamas nerimautumėte. Prašau nusiraminti! Panika nieko nepadės, bet pablogins situaciją. Visų pirma, galite patikrinti, ar galite pasiekti PST failą kaip įprasta. Jei taip, turite pataisyti PST failą, kurį galite atlikti naudodami pašto dėžutės taisymo įrankis arba galingesnis išorinis įrankis, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf remontas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com