2 способа пакетного удаления напоминаний из всех бесплатных или предварительных элементов календаря в Outlook

Для элементов календаря, которые отображаются как «Свободные» или «Под вопросом», вы можете удалить их напоминания. Теперь в этой статье мы представим 2 метода, которые позволят вам получить его оптом.

Возможно, вы настроили время напоминания по умолчанию для всех элементов календаря. В этом случае, независимо от того, заняты ли они, нет на месте, свободны или находятся под вопросом, для них всегда будет включено напоминание. Однако, как правило, бесплатные и предварительные элементы на самом деле не требуют напоминаний. Следовательно, вы хотите пакетно удалять напоминания из таких элементов. Итак, здесь мы научим вас 2 способам реализовать это за один раз.

Метод 1: пакетное удаление в одном календаре вручную

1. Прежде всего, откройте календарь.
2. Затем перейдите на вкладку «Вид» и нажмите «Изменить вид»> «Список».
3. Далее нажмите кнопку «Просмотреть настройки».
4. Во всплывающем диалоговом окне нажмите кнопку «Группировать по».
5. После этого в другом новом диалоговом окне выберите «Напоминание» в «Группировать элементы по» и нажмите «ОК».
6. Позже нажмите кнопку «Столбцы».
7. В диалоговом окне «Показать столбцы» добавьте столбец «Показать время как» и нажмите «ОК».
8. Затем нажмите «ОК», чтобы сохранить настройки просмотра.
9. В списке элементов календаря найдите и выберите все свободные/предварительные элементы в группе «Напоминание: Да».
10. Наконец, перетащите их в группу «Напоминание: нет».

Метод 2: пакетное удаление во всех календарях с помощью VBA

1. Во-первых, нажмите «Alt + F11», чтобы вызвать редактор VBA.
2. Затем скопируйте приведенный ниже код VBA в модуль.

Sub RemoveReminders_TentativeCalendarItems()
    Dim objStore As Outlook.Store
    Dim objFolder As Outlook.Folder
 
    For Each objStore In Application.Session.Stores
        'Process all Calendar folders
        For Each objFolder In objStore.GetRootFolder.Folders
            If objFolder.DefaultItemType = olAppointmentItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCalendar As Outlook.Folder)
    Dim i As Long
    Dim objAppointment As Outlook.AppointmentItem
    Dim objSubCalendar As Outlook.Folder
 
    'Remove Reminders from Free/Tentative Calendar Items
    For i = objCalendar.Items.Count To 1 Step -1
        Set objAppointment = objCalendar.Items(i)
        If objAppointment.BusyStatus = olFree Or objAppointment.BusyStatus = olTentative Then
           If objAppointment.ReminderSet = True Then
              objAppointment.ReminderSet = False
              objAppointment.Save
           End If
        End If
    Next
 
    'Process Subfolders Recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call ProcessFolders(objSubCalendar)
       Next
    End If
End Sub

3. После этого переместите курсор в первую подпрограмму.
4. Наконец, нажмите клавишу «F5».
5. Сразу же будут удалены все напоминания о бесплатных или предварительных элементах календаря.

Как справиться с тревожными проблемами Outlook

Довольно часто в Outlook возникают различные проблемы, такие как повреждение PST-файла, заражение вирусом, случайное удаление элемента и т. д. Для своевременного и эффективного решения рекомендуется иметь надежный ремонт PST инструмент поблизости, например DataNumen Outlook Repair. Это может уберечь вас от досадной потери данных Outlook.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com