A hétvégi találkozók automatikus megjelölése privátként az Outlookban

A most felhasználók, a hétvégére tervezett időpontok általában privátak. Ezért azt akarják, hogy az Outlook automatikusan privátként jelölje meg és jelenítse meg az ilyen találkozókat. Ebben a cikkben ezt valósítjuk meg egy kis szkripttel.

Az üzleti és a privát találkozók könnyebb megkülönböztetése érdekében az Outlook lehetővé teszi a felhasználók számára, hogy privátként jelöljék meg a találkozókat. Ily módon meglehetősen kényelmesnek és egyszerűnek találja a naptár nyomtatását privát időpontok nélkül. Ebben a helyzetben érdemes lehet, hogy az Outlook automatikusan felismerjen és privátként jelöljön meg bizonyos találkozókat. Például általában a hétvégi találkozók privátak, ezért szeretné engedélyezni, hogy az Outlook automatikusan privátként jelölje meg őket. A továbbiakban mi eligazítjuk Önt ennek elérésében.

A hétvégi találkozók automatikus megjelölése privátként

1. Először indítsa el az Outlook VBA szerkesztőt a „A VBA kód futtatása az Outlookban".
2. Ezután a „Microsoft Visual Basic for Applications” ablakban helyezze be a következő kódot a „ThisOutlookSession” projektbe.

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. Ezt követően restart Outlook a makró aktiválásához.
4. Mostantól minden alkalommal, amikor új találkozót hoz létre, vagy egy meglévő találkozót hétvégére módosít, az Outlook automatikusan privátként jelöli meg.

Oldja meg a bosszantó Outlook-problémákat

Lehetséges, hogy problémákba ütközött az Outlook használata során, például váratlan alkalmazáslefagyás, felugró hibaüzenetek stb. Amikor elszenvedi őket, aggódni fog. Kérlek nyugodj le! A pánik nem segít semmit, de rontja a helyzetet. Először is ellenőrizheti, hogy a szokásos módon hozzáfér-e a PST-fájlhoz. Ha igen, ki kell javítania a PST-fájlt, amely a következőn keresztül hajtható végre postafiók javító eszköz vagy egy erősebb külső eszköz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com