Ako automaticky označiť víkendové schôdzky ako súkromné ​​v programe Outlook

Pre most Používatelia, schôdzky naplánované na víkend sú zvyčajne súkromné. Preto chcú, aby program Outlook tieto schôdzky automaticky označil a zobrazil ako súkromné. V tomto článku to splníme trochou skriptovania.

S cieľom ľahšie rozlíšiť medzi obchodným a súkromným stretnutím umožňuje program Outlook používateľom označiť tieto stretnutia ako súkromné. Týmto spôsobom zistíte, že je celkom pohodlné a ľahké tlačiť kalendár bez súkromných stretnutí. V tejto situácii môžete chcieť, aby váš Outlook automaticky rozpoznal a označil konkrétne udalosti ako súkromné. Napríklad všeobecne sú schôdzky cez víkend súkromné, preto ich chcete nechať v Outlooku automaticky označiť ako súkromné. Ďalej vás prevedieme tým, ako to dosiahnuť.

Automaticky označiť víkendové schôdzky ako súkromné

1. Najskôr spustite editor Outlook VBA podľa „Ako spustiť kód VBA v programe Outlook".
2. Potom v okne „Microsoft Visual Basic for Applications“ vložte nasledujúci kód do projektu „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. Po tom, restart Outlook na aktiváciu makra.
4. Odteraz program Outlook automaticky zakaždým, keď vytvoríte novú schôdzku alebo zmeníte existujúcu schôdzku na víkend, ako súkromnú.

Riešenie nepríjemných problémov s programom Outlook

Je možné, že ste sa stretli s niektorými problémami pri práci s programom Outlook, napríklad s neočakávaným zamrznutím aplikácie, vyskakovacími chybovými správami atď. Pri ich utrpení by ste sa obávali. Prosím ukľudni sa! Panika nepomôže nič, len sa zhorší prípad. V prvom rade môžete skontrolovať, či máte prístup k súboru PST ako obvykle. Ak je to tak, musíte opraviť súbor PST, čo je možné vykonať pomocou nástroj na opravu doručenej pošty alebo výkonnejší externý nástroj, napríklad DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S