Paano Auto Markahan ang Mga Paghirang sa Weekend bilang Pribado sa Outlook

Para sa most user, ang mga appointment na naka-iskedyul sa katapusan ng linggo ay karaniwang pribado. Samakatuwid, gusto nilang awtomatikong markahan at ipakita ng Outlook ang mga naturang appointment bilang pribado. Sa artikulong ito, gagawin natin itong totoo sa pamamagitan ng kaunting scripting.

Upang mas madaling makilala ang pagkakaiba sa pagitan ng negosyo at pribadong appointment, pinahihintulutan ng Outlook ang mga user na markahan ang mga appointment bilang pribado. Sa ganitong paraan, makikita mong medyo maginhawa at madaling mag-print ng kalendaryo nang walang pribadong appointment. Sa sitwasyong ito, maaari mong hilingin na ang iyong Outlook ay awtomatikong makilala at markahan ang mga partikular na appointment bilang pribado. Halimbawa, sa pangkalahatan, ang mga appointment sa katapusan ng linggo ay pribado, kaya gusto mong hayaan ang Outlook na awtomatikong markahan ang mga ito bilang pribado. Pagkatapos noon, gagabayan ka namin na makamit ito.

Auto Mark Weekend Appointment bilang Pribado

1. Sa una, ilunsad ang Outlook VBA editor ayon sa “Paano Patakbuhin ang VBA Code sa Iyong Outlook".
2. Pagkatapos, sa window ng "Microsoft Visual Basic for Applications", ilagay ang sumusunod na code sa proyektong "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. Pagkatapos nito, restart Outlook upang i-activate ang macro.
4. Mula ngayon, sa tuwing gagawa ka ng bagong appointment o binago mo ang isang umiiral na appointment sa katapusan ng linggo, awtomatikong markahan ito ng Outlook bilang pribado.

Lutasin ang Nakakainis na Mga Problema sa Outlook

Posible na nakatagpo ka ng ilang mga isyu kapag nakikitungo sa Outlook, tulad ng hindi inaasahang pagyeyelo ng application, mga mensahe ng error sa popup at iba pa. Kapag nagdurusa ka sa kanila, mag-aalala ka. Mangyaring huminahon! Walang maitutulong ang panic, ngunit palalalain ang kaso. Sa unang lugar, maaari mong suriin kung maaari mong ma-access ang PST file gaya ng dati. Kung gayon, kailangan mong ayusin ang PST file, na maaaring magawa sa pamamagitan ng tool sa pag-aayos ng inbox o isang mas malakas na panlabas na tool, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang pag-aayos ng mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa