Qanday qilib Outlook-da dam olish kunlari uchrashuvlarini avtomatik tarzda shaxsiy deb belgilash mumkin

Outlook yechimlari Sentyabr 29, 2025

m uchunost foydalanuvchilar, hafta oxiriga rejalashtirilgan uchrashuvlar odatda shaxsiydir. Shunday qilib, ular Outlook avtomatik ravishda bunday uchrashuvlarni shaxsiy sifatida belgilash va ko'rsatishni xohlashadi. Ushbu maqolada biz buni biroz skript yordamida amalga oshiramiz.

Biznes va shaxsiy uchrashuvlarni osonroq ajratish uchun Outlook foydalanuvchilarga uchrashuvlarni shaxsiy deb belgilashga ruxsat beradi. Shunday qilib, siz taqvimni shaxsiy uchrashuvlarsiz chop etish uchun juda qulay va oson topasiz. Bunday holatda, Outlook-dan ma'lum uchrashuvlarni avtomatik ravishda tanib olish va shaxsiy deb belgilashni xohlashingiz mumkin. Misol uchun, odatda, dam olish kunlaridagi uchrashuvlar shaxsiydir, shuning uchun Outlookga avtomatik ravishda ularni shaxsiy deb belgilashga ruxsat berishni xohlaysiz. Keyinchalik, biz sizga erishish uchun yo'l-yo'riq beramiz.

Dam olish kunlarini avtomatik tarzda shaxsiy deb belgilash

Avvaliga “ Outlook VBA muharririni ishga tushiring.Outlook-da VBA kodini qanday ishlatish kerak".
Keyin, "Ilovalar uchun Microsoft Visual Basic" oynasida, "ThisOutlookSession" loyihasiga quyidagi kodni qo'ying.

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

Shundan so'ng, restart Makroni faollashtirish uchun Outlook.
Bundan buyon har safar yangi uchrashuv yaratganingizda yoki mavjud uchrashuvni dam olish kuniga o'zgartirganingizda, Outlook avtomatik ravishda uni shaxsiy deb belgilaydi.

Zerikarli Outlook muammolarini hal qiling

Ehtimol, siz Outlook bilan ishlashda ba'zi muammolarga duch kelgan bo'lishingiz mumkin, masalan, kutilmagan ilovalarni muzlatib qo'yish, qalqib chiquvchi xato xabarlari va boshqalar. Ulardan azob chekayotganingizda, siz tashvishlanasiz. Iltimos, tinchlaning! Vahima hech narsaga yordam bermaydi, lekin vaziyatni yomonlashtiradi. Avvalo, siz odatdagidek PST fayliga kirishingiz mumkinligini tekshirishingiz mumkin. Agar shunday bo'lsa, siz PST faylini ta'mirlashingiz kerak, bu orqali amalga oshirish mumkin pochta qutisini tuzatish vositasi yoki kuchliroq tashqi vosita, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf ta'mirlash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com