Suplanavę pasikartojantį susitikimą „Outlook“ kalendoriuje, jei norite pašalinti priminimus apie savaitgaliais vykstančius įvykius, galite naudoti šiame straipsnyje aprašytą metodą.
Ar turite pasikartojančių susitikimų „Outlook“ kalendoriuje? Pavyzdžiui, suplanavote pasikartojantį susitikimą, vykstantį kas 4 dienas. Tokiu atveju kai kurie šio susitikimo įvykiai būtų savaitgaliai. Šiuo metu priminimai apie šiuos savaitgalio įvykius jums gali būti nenaudingi. Todėl norėtumėte pašalinti jų priminimus. Sutelkdami dėmesį į šį reikalavimą, pristatysime efektyvų ir patogų būdą.
Pašalinkite pasikartojančio susitikimo savaitgalio įvykių priminimus
- Pačioje pradžioje paleiskite „Outlook“ programą.
- Tada eikite į „Outlook VBA“ redaktorių naudodami klavišus „Alt + F11“.
- Tada į projektą arba modulį įdėkite šį VBA kodą.
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
- Po to galite uždaryti langą.
- Tada atlikite veiksmus, nurodytus straipsnyje "Kaip paleisti VBA kodą „Outlook“.“, kad pridėtumėte šią makrokomandą prie greitosios prieigos įrankių juostos.
- Galiausiai paleiskite šią makrokomandą dabar.
- Pirmiausia pasirinkite vieną pasikartojančio susitikimo atvejį.
- Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
- Užbaigus makrokomandą, savaitgaliais suplanuotų įvykių priminimai bus pašalinti. Be to, temos bus pakeistos pagal kodą, pavyzdžiui, šioje ekrano kopijoje:
Apsaugokite „Outlook“ nuo korupcijos
Kaip ir kiti įprasti failai, pvz., „Word“ dokumentas, „Excel“ darbalapis, „Outlook“ duomenų failas yra pažeidžiamas. Todėl turėtumėte imtis veiksmingų atsargumo priemonių, kad sumažintumėte „Outlook“ sugadinimo tikimybę. Pavyzdžiui, turite nuolat kurti PST duomenų atsarginę kopiją. Be to, norėdami išvengti duomenų praradimo, šalia turėtume laikyti Outlook taisymo įrankį, pvz. DataNumen Outlook Repair. Tai sugeba pataisyti Outlook problemų be vargo.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql korupcija ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com