Kā automātiski atzīmēt nedēļas nogales tikšanās kā privātas programmā Outlook

Par most lietotājiem, nedēļas nogalē plānotās tikšanās parasti ir privātas. Tādējādi viņi vēlas, lai Outlook automātiski atzīmētu un rādītu šādas tikšanās kā privātas. Šajā rakstā mēs to īstenosim ar nelielu skriptu palīdzību.

Lai vieglāk nošķirtu biznesa un privātās tikšanās, programma Outlook ļauj lietotājiem atzīmēt tikšanās kā privātas. Tādā veidā jums būs diezgan ērti un viegli izdrukāt kalendāru bez privātām tikšanām. Šajā situācijā jūs varētu vēlēties, lai jūsu Outlook automātiski atpazītu un atzīmētu noteiktas tikšanās kā privātas. Piemēram, nedēļas nogalē tikšanās ir privātas, tāpēc vēlaties ļaut programmai Outlook automātiski atzīmēt tās kā privātas. Turpmāk mēs jums palīdzēsim to sasniegt.

Automātiski atzīmēt nedēļas nogales tikšanās kā privātas

1. Sākumā palaidiet Outlook VBA redaktoru atbilstoši “Kā palaist VBA kodu programmā Outlook".
2. Pēc tam logā “Microsoft Visual Basic for Applications” ievietojiet šo kodu 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

3. Pēc tam reztart Outlook, lai aktivizētu makro.
4. Turpmāk katru reizi, kad izveidojat jaunu tikšanos vai maināt esošu tikšanos uz nedēļas nogali, programma Outlook to automātiski atzīmēs kā privātu.

Atrisiniet kaitinošas perspektīvas problēmas

Iespējams, ka, strādājot ar Outlook, esat saskāries ar dažām problēmām, piemēram, negaidītu lietojumprogrammu iesaldēšanu, uznirstošo kļūdu ziņojumus un tā tālāk. Ciešot viņiem, jūs būtu noraizējies. Lūdzu nomierinies! Panika neko nelīdzēs, bet lietu pasliktinās. Pirmkārt, jūs varat pārbaudīt, vai varat piekļūt PST failam kā parasti. Ja tā, jums ir jālabo PST fails, ko var paveikt, izmantojot iesūtnes labošanas rīks vai jaudīgāks ārējs rīks, piemēram DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf remonts un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar