Kun olet ajoittanut toistuvan tapaamisen Outlook-kalenteriin ja haluat poistaa viikonloppumuistutuksia tapahtumista, voit käyttää tässä artikkelissa esiteltyä menetelmää.
Onko sinulla toistuvia tapaamisia Outlook-kalenterissasi? Olet esimerkiksi varannut toistuvan tapaamisen 4 päivän välein. Tässä tapauksessa jotkut tämän tapaamisen tapahtumat osuvat viikonloppuihin. Tässä vaiheessa muistutukset näistä viikonlopputapahtumista voivat olla sinulle hyödyttömiä. Siksi haluat poistaa heidän muistutuksensa. Keskitymme tähän vaatimukseen ja esittelemme tässä tehokkaan ja kätevän tavan.
Poista toistuvan tapaamisen viikonlopputapahtumien muistutukset
- Käynnistä Outlook-sovellus heti alusta.
- Siirry sitten Outlook VBA -editoriin "Alt + F11" -näppäimillä.
- Aseta seuraavaksi seuraava VBA-koodi projektiin tai moduuliin.
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
- Tämän jälkeen voit sulkea ikkunan.
- Noudata sen jälkeen artikkelissa "Kuinka suorittaa VBA-koodi Outlookissa”Lisätäksesi tämän makron Quick Access Toolbariin.
- Suorita lopulta tämä makro nyt.
- Valitse ensin yksi toistuvan tapaamisen esiintyminen.
- Napsauta seuraavaksi makron painiketta Pikakäynnistystyökalurivillä.
- Kun makro on valmis, muistutukset viikonloppuisin ajoitetuista tapahtumista poistetaan. Myös aiheita muutetaan koodin perusteella, kuten seuraava kuvakaappaus:
Suojaa näkymät korruptiolta
Kuten muutkin yleiset tiedostot, kuten Word-asiakirja, Excel-laskentataulukko, Outlook-datatiedosto on haavoittuvainen. Tästä syystä sinun tulee ryhtyä tehokkaisiin varotoimiin Outlookin vioittumisen todennäköisyyden vähentämiseksi. Sinun on esimerkiksi jatkettava tavallista PST-tietojen varmuuskopiointia. Lisäksi tietojen häviämisen estämiseksi meidän tulisi pitää lähettyvillä Outlook-korjaustyökalu, esim. DataNumen Outlook Repair. Se pystyy korjata Outlook ongelmat helposti.
Tekijän esittely:
Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql korruptio ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com