Hogyan lehet gyorsan eltávolítani az emlékeztetőket egy ismétlődő Outlook-találkozó hétvégi előfordulása esetén

Miután ütemezett egy ismétlődő találkozót az Outlook naptárában, és el szeretné távolítani a hétvégére eső események emlékeztetőit, használhatja a cikkben bemutatott módszert.

Vannak ismétlődő találkozói az Outlook naptárában? Például egy ismétlődő találkozót ütemezett be, amely 4 naponta történik. Ebben az esetben a találkozó egyes előfordulásai hétvégére esnének. Ezen a ponton a hétvégi események emlékeztetői haszontalanok lehetnek az Ön számára. Ezért szeretné eltávolítani az emlékeztetőket. Erre a követelményre összpontosítva bemutatunk egy hatékony és kényelmes módszert.

Távolítsa el az emlékeztetőket egy ismétlődő találkozó hétvégi előfordulása esetén

1. A legelején indítsa el az Outlook alkalmazást.
2. Ezután lépjen az Outlook VBA szerkesztőjébe az „Alt + F11” billentyűkkel.
3. Ezután helyezze be a következő VBA-kódot egy projektbe vagy modulba.

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. Ezt követően bezárhatja az ablakot.
5. Ezt követően kövesse a következő cikkben található lépéseket: "A VBA kód futtatása az Outlookban” a makró hozzáadásához a Gyorselérési eszköztárhoz.
6. Végül futtassa most ezt a makrót.

• Először is válassza ki az ismétlődő találkozó egy előfordulását.
• Ezután kattintson a makró gombra a Gyorselérési eszköztárban.
• A makró befejezése után a hétvégére beütemezett események emlékeztetőit eltávolítjuk. Ezenkívül a témák a kód alapján módosulnak, például a következő képernyőképen:

Védje az Outlookot a korrupciótól

Más általános fájlokhoz, például Word-dokumentumokhoz, Excel-munkalapokhoz hasonlóan az Outlook adatfájlja is sebezhető. Ezért tegyen néhány erőteljes óvintézkedést, hogy csökkentse az Outlook sérülésének esélyét. Például ki kell tartania a rendszeres PST adatmentést. Sőt, az adatvesztés megelőzése érdekében a közelben tartanunk kell egy Outlook javítóeszközt, mint pl. DataNumen Outlook Repair. Képes javítás Outlook problémamentesen.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql korrupció és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com