Takroriy Outlook uchrashuvining hafta oxiri hodisalari uchun eslatmalarni qanday tezda olib tashlash mumkin

Outlook taqvimida takroriy uchrashuvni rejalashtirganingizdan so'ng, dam olish kunlariga to'g'ri keladigan hodisalar haqida eslatmalarni olib tashlamoqchi bo'lsangiz, ushbu maqolada keltirilgan usuldan foydalanishingiz mumkin.

Outlook taqvimingizda takrorlanadigan uchrashuvlar bormi? Masalan, siz har 4 kunda takrorlanadigan uchrashuvni rejalashtirdingiz. Bunday holda, ushbu uchrashuvning ba'zi hodisalari dam olish kunlariga to'g'ri keladi. Ayni damda ushbu dam olish kunlaridagi voqealarni eslatish siz uchun foydasiz bo'lishi mumkin. Shuning uchun siz ularning eslatmalarini olib tashlamoqchisiz. Ushbu talabga e'tibor qaratgan holda, biz bu erda samarali va qulay usulni joriy qilamiz.

Dam olish kunlari takrorlanadigan uchrashuvlar haqidagi eslatmalarni olib tashlang

1. Eng boshida Outlook dasturini ishga tushiring.
2. Keyin "Alt + F11" tugmalari orqali Outlook VBA muharririga o'ting.
3. Keyinchalik, quyidagi VBA kodini loyiha yoki modulga qo'ying.

Sub RemoveRemindersOfWeekendOccurrencesOfRecurringAppointments()
    Dim objAppointment As Outlook.AppointmentItem
    Dim objCalendar As Outlook.Folder
    Dim objCalendarItems As Outlook.Items
    Dim objRecurrencePattern As RecurrencePattern
    Dim dStartDate, dEndDate As Date
    Dim dCurrentDate, dActualTime As Date
    Dim strFilter As String
    Dim objFoundAppointment As Outlook.AppointmentItem
    Dim objOccurrence As Outlook.AppointmentItem
   
    Set objAppointment = Application.ActiveExplorer.Selection.Item(1)
 
    Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
    Set objCalendarItems = objCalendar.Items
    objCalendarItems.Sort "[Start]", False
    objCalendarItems.IncludeRecurrences = True
 
    Set objRecurrencePattern = objAppointment.GetRecurrencePattern
    dStartDate = Format(objRecurrencePattern.PatternStartDate, "MM/DD/YYYY")
    dEndDate = Format(objRecurrencePattern.PatternEndDate, "MM/DD/YYYY")
   
    dCurrentDate = dStartDate
    Do Until dCurrentDate >= dEndDate
       If Weekday(dCurrentDate) = vbSaturday Or Weekday(dCurrentDate) = vbSunday Then
          dActualTime = dCurrentDate & " " & objRecurrencePattern.StartTime
          dActualTime = Format(dActualTime, "ddddd hh:mm:ss AMPM")
 
          strFilter = "[Start] <= " & Chr(34) & dCurrentDate & " 11:59 PM" & Chr(34) & " AND [End] > " & Chr(34) & dCurrentDate & " 00:00 AM" & Chr(34) & " AND [Subject] = " & Chr(34) & objAppointment.Subject & Chr(34)
          Set objFoundAppointment = objCalendarItems.Find(strFilter)
 
          If Not objFoundAppointment Is Nothing Then
             'Get the occurrence on weekends
             Set objOccurrence = objRecurrencePattern.GetOccurrence(dActualTime)
 
             'Remove the reminders
             With objOccurrence
                 .Subject = "(C)" & objAppointment.Subject
                 .ReminderSet = False
                 .Save
             End With
           End If
       End If
       dCurrentDate = DateAdd("d", 1, dCurrentDate)
    Loop
End Sub

4. Shundan so'ng siz oynani yopishingiz mumkin.
5. Keyinchalik, maqolada ko'rsatilgan amallarni bajaring "Outlook-da VBA kodini qanday ishlatish kerak” ushbu makrosni Tez kirish asboblar paneliga qo‘shish uchun.
6. Oxir-oqibat, ushbu makrosni hozir ishga tushiring.

• Avvalo, takrorlanadigan uchrashuvning bittasini tanlang.
• Keyin, Tez kirish asboblar panelidagi so'l tugmasini bosing.
• Makros tugagandan so'ng, dam olish kunlariga rejalashtirilgan hodisalar haqidagi eslatmalar o'chiriladi. Shuningdek, mavzular quyidagi skrinshot kabi kod asosida o'zgartiriladi:

Outlookni korruptsiyadan himoya qiling

Boshqa keng tarqalgan fayllar kabi, masalan, Word hujjati, Excel ish varag'i, Outlook ma'lumotlar fayli zaifdir. Shunday qilib, Outlook korruptsiyalari ehtimolini kamaytirish uchun ba'zi kuchli choralarni ko'rishingiz kerak. Misol uchun, siz muntazam PST ma'lumotlarining zaxira nusxasini saqlashingiz kerak. Bundan tashqari, ma'lumotlar yo'qotilishining oldini olish uchun biz Outlook ta'mirlash vositasini yaqin joyda saqlashimiz kerak. DataNumen Outlook Repair. Qodir Outlook-ni ta'mirlash muammosiz osonlik bilan.

Muallif kirish:

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