Outlook təqviminizdə təkrarlanan görüş təyin etdikdən sonra, həftə sonlarına təsadüf edən hadisələrin xatırlatmalarını silmək istəyirsinizsə, bu məqalədə təqdim olunan üsuldan istifadə edə bilərsiniz.
Outlook təqviminizdə təkrarlanan görüşləriniz varmı? Məsələn, hər 4 gündən bir təkrarlanan görüş təyin etmisiniz. Bu halda, bu təyinatın bəzi hadisələri həftə sonlarına təsadüf edərdi. Bu nöqtədə, bu həftə sonu hadisələrinin xatırlatmaları sizin üçün faydasız ola bilər. Ona görə də onların xatırlatmalarını silmək istərdiniz. Bu tələbə diqqət yetirərək, burada effektiv və rahat bir yol təqdim edəcəyik.
Təkrarlanan Görüşün Həftə Sonu Hadisələri üçün Xatırlatmaları silin
- Ən başlanğıcda Outlook proqramını işə salın.
- Sonra "Alt + F11" düymələri vasitəsilə Outlook VBA redaktoruna müraciət edin.
- Sonra, aşağıdakı VBA kodunu layihə və ya modula qoyun.
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
- Bundan sonra pəncərəni bağlaya bilərsiniz.
- Daha sonra məqalədə göstərilən addımları izləyin "Outlook-da VBA kodunu necə işlətmək olar” bu makronu Tez Giriş Alətlər Panelinə əlavə etmək üçün.
- Nəhayət, indi bu makronu işə salın.
- Əvvəlcə təkrarlanan görüşün bir hadisəsini seçin.
- Sonra, Tez Giriş Alətlər Panelində makro düyməsini basın.
- Makro tamamlandıqdan sonra həftə sonları planlaşdırılan hadisələrin xatırlatmaları silinəcək. Həmçinin, mövzular aşağıdakı ekran görüntüsü kimi kod əsasında dəyişdiriləcək:
Görünüşü korrupsiyadan qoruyun
Word sənədi, Excel iş vərəqi kimi digər ümumi fayllar kimi Outlook məlumat faylı da həssasdır. Beləliklə, Outlook-un korlanma şansını azaltmaq üçün bəzi güclü ehtiyat tədbirləri görməlisiniz. Məsələn, siz müntəzəm PST məlumat ehtiyat nüsxəsində israr etməlisiniz. Bundan əlavə, məlumat itkisinin qarşısını almaq üçün Outlook təmir alətini yaxınlıqda saxlamalıyıq. DataNumen Outlook Repair. Bacarır Outlook-u təmir edin problemsiz rahatlıqla.
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 sql korrupsiyası və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com