Outlook-da Həftəsonu Görüşlərini Avtomatik olaraq Şəxsi olaraq necə qeyd etmək olar

m üçünost istifadəçilər, həftə sonu təyin olunan görüşlər adətən özəldir. Beləliklə, onlar Outlook-un avtomatik olaraq belə görüşləri şəxsi kimi qeyd etməsini və göstərməsini istəyirlər. Bu yazıda bir az skriptlə bunu gerçəkləşdirəcəyik.

Biznes və şəxsi görüşləri daha asan ayırd etmək üçün Outlook istifadəçilərə görüşləri şəxsi kimi qeyd etməyə icazə verir. Bu yolla, şəxsi görüşlər olmadan təqvimi çap etmək üçün olduqca rahat və asan tapacaqsınız. Bu vəziyyətdə, Outlook-un xüsusi görüşləri avtomatik olaraq tanımasını və şəxsi kimi qeyd etməsini istəyə bilərsiniz. Məsələn, ümumiyyətlə, həftə sonu görüşləri özəldir, ona görə də Outlook-un onları avtomatik olaraq özəl olaraq qeyd etməsinə icazə vermək istəyirsiniz. Bundan sonra, buna nail olmaq üçün sizə rəhbərlik edəcəyik.

Avtomatik olaraq Həftəsonu Görüşlərini Şəxsi olaraq qeyd edin

1. Əvvəlcə “ Outlook VBA redaktorunu işə salınOutlook-da VBA kodunu necə işlətmək olar".
2. Sonra “Proqramlar üçün Microsoft Visual Basic” pəncərəsində “ThisOutlookSession” layihəsinə aşağıdakı kodu daxil edin.

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. Bundan sonra, restart Makronu aktivləşdirmək üçün Outlook.
4. Bundan sonra hər dəfə yeni görüş yaradarkən və ya mövcud görüşü həftəsonuna dəyişdikdə, Outlook onu avtomatik olaraq özəl olaraq qeyd edəcək.

Zəhlətökən Outlook problemlərini həll edin

Outlook ilə işləyərkən proqramın gözlənilməz donması, popup səhv mesajları və s. kimi bəzi problemlərlə qarşılaşmısınız. Onlara əziyyət verəndə narahat olardın. Xahiş edirəm sakitləşin! Çaxnaşma heç bir şeyə kömək etməyəcək, ancaq vəziyyəti daha da pisləşdirəcək. İlk növbədə, hər zamanki kimi PST faylına daxil olub-olmadığınızı yoxlaya bilərsiniz. Əgər belədirsə, PST faylını təmir etməlisiniz, bu da vasitəsilə həyata keçirilə bilər inbox təmir aləti və ya daha güclü xarici alət kimi DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf təmiri və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com