Ինչպես ավտոմատ կերպով նշել հանգստյան օրերի հանդիպումները որպես մասնավոր Outlook-ում

Մ – ի համարost օգտատերեր, հանգստյան օրերին նախատեսված հանդիպումները սովորաբար մասնավոր են: Հետևաբար, նրանք ցանկանում են, որ Outlook-ը ավտոմատ կերպով նշի և ցույց տա նման հանդիպումները որպես մասնավոր: Այս հոդվածում մենք դա իրականություն կդարձնենք մի փոքր սցենարով:

Որպեսզի ավելի հեշտ տարբերակեն գործնական և մասնավոր հանդիպումները, Outlook-ը թույլ է տալիս օգտվողներին նշել հանդիպումները որպես մասնավոր: Այսպիսով, դուք կգտնեք բավականին հարմար և հեշտ օրացույց տպել առանց անձնական հանդիպումների: Այս իրավիճակում դուք կարող եք ցանկանալ, որ ձեր Outlook-ը ավտոմատ կերպով ճանաչի և նշի որոշակի հանդիպումներ որպես մասնավոր: Օրինակ, ընդհանուր առմամբ, հանգստյան օրերին հանդիպումները մասնավոր են, հետևաբար, դուք ցանկանում եք թույլ տալ, որ Outlook-ը դրանք ավտոմատ նշի որպես մասնավոր: Այնուհետև մենք ձեզ կառաջնորդենք հասնել դրան:

Ավտոմատ Նշեք հանգստյան օրերի նշանակումները որպես մասնավոր

1. Սկզբում գործարկեք Outlook VBA խմբագրիչը՝ համաձայն «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
2. Այնուհետև «Microsoft Visual Basic հավելվածների համար» պատուհանում տեղադրեք հետևյալ կոդը «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. Դրանից հետո ռեսtart Մակրո ակտիվացնելու համար Outlook:
4. Այսուհետ, ամեն անգամ, երբ դուք ստեղծում եք նոր հանդիպում կամ փոխում եք գոյություն ունեցող հանդիպումը հանգստյան օրերի, Outlook-ն այն ավտոմատ կերպով կնշի որպես անձնական:

Լուծեք անհանգստացնող Outlook-ի խնդիրները

Հնարավոր է, որ դուք բախվել եք որոշ խնդիրների Outlook-ի հետ գործ ունենալիս, ինչպիսիք են հավելվածի անսպասելի սառեցումը, թռուցիկ սխալի հաղորդագրությունները և այլն: Դրանց տառապելիս դու անհանգստացած կլինեիր։ Խնդրում եմ հանգստացե՛ք։ Խուճապը ոչնչի չի օգնի, բայց կվատթարացնի գործը: Առաջին հերթին, դուք կարող եք ստուգել, ​​թե արդյոք կարող եք մուտք գործել PST ֆայլ, ինչպես միշտ: Եթե ​​այո, դուք պետք է վերանորոգեք PST ֆայլը, որը կարող է իրականացվել միջոցով մուտքի արկղի վերանորոգման գործիք կամ ավելի հզոր արտաքին գործիք, ինչպես DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում mdf վերանորոգում և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com