Nädalavahetuse kohtumiste automaatne märkimine Outlookis privaatseks

most kasutajate jaoks on nädalavahetuseks planeeritud kohtumised tavaliselt privaatsed. Seetõttu tahavad nad, et Outlook märgiks ja näitaks sellised kohtumised automaatselt privaatseks. Selles artiklis teeme selle teoks väikese skriptimisega.

Äri- ja erakohtumiste lihtsamaks eristamiseks võimaldab Outlook kasutajatel märkida kohtumised privaatseks. Sel viisil on teil üsna mugav ja lihtne printida kalendrit ilma privaatsete kohtumisteta. Sellises olukorras võite soovida, et teie Outlook tuvastaks teatud kohtumised automaatselt ja märgiks need privaatseks. Näiteks nädalavahetuse kohtumised on üldiselt privaatsed, seega soovite lasta Outlookil need automaatselt privaatseks märkida. Edaspidi juhendame teid selle saavutamisel.

Märkige nädalavahetuse kohtumised automaatselt privaatseks

1. Esmalt käivitage Outlook VBA redaktor vastavalt "Kuidas Outlookis VBA-koodi käivitada".
2. Seejärel sisestage aknas „Microsoft Visual Basic for Applications” projekti „ThisOutlookSession” järgmine kood.

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. Pärast seda restart Outlook makro aktiveerimiseks.
4. Nüüdsest iga kord, kui loote uue kohtumise või muudate olemasoleva kohtumise nädalavahetuseks, märgib Outlook selle automaatselt privaatseks.

Lahendage tüütud Outlooki probleemid

Võimalik, et teil on Outlookiga töötades esinenud probleeme, näiteks ootamatu rakenduse külmutamine, hüpikakende veateated ja nii edasi. Neid kannatades oleksite mures. Palun rahune maha! Paanika ei aita midagi, vaid muudab juhtumi hullemaks. Esiteks saate kontrollida, kas pääsete PST-failile tavapäraselt juurde. Kui jah, peate PST-faili parandama, mida saab teha rakenduse kaudu postkasti parandamise tööriist või võimsam väline tööriist, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf remont ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom