Если вы хотите отменить все встречи, запланированные на определенный диапазон дат в вашем Outlook, вы можете использовать средства, представленные в этой статье. Это может избавить вас от поиска и отмены таких встреч вручную.
Если по каким-либо причинам вы не можете организовывать встречи или участвовать в них, которые будут проводиться в определенный диапазон дат в будущем, вы можете отменить все такие встречи. Как правило, вы должны сначала узнать их, а затем отменить их одну за другой. Это будет довольно хлопотно. Поэтому в дальнейшем мы поделимся с вами другим способом, который гораздо удобнее.
Пакетная отмена всех совещаний, запланированных на определенный диапазон дат
- В самом начале сtarв вашей программе Outlook.
- Затем в Outlook нужно нажать клавиши «Alt+F11».
- Далее вы попадете в окно «Microsoft Visual Basic для приложений».
- В этом окне следует открыть неиспользуемый модуль или просто вставить новый.
- Впоследствии вы можете скопировать следующий код VBA в этот модуль.
Sub BatchCancelAllMeetingsInSpecificDateRange()
Dim dStartDate As Date
Dim dEndDate As Date
Dim objCalendarFolder As Outlook.folder
Dim objItems As Outlook.Items
Dim objItemsInDateRange As Outlook.Items
Dim objAppointment As Outlook.AppointmentItem
Dim objResponse As Outlook.MeetingItem
'Specify the start date and end date
dStartDate = InputBox("Enter the start date:", , "10/1/2017")
dEndDate = InputBox("Enter the end date:", , "10/8/2017")
If dStartDate <> #1/1/4501# And dEndDate <> #1/1/4501# Then
'Select a calendar folder
Set objCalendarFolder = Outlook.Application.Session.PickFolder
Set objItems = objCalendarFolder.Items
objItems.IncludeRecurrences = True
objItems.Sort "[Start]"
'Get the appointments in the specific date range
strFilter = "[Start] >= " & Chr(34) & dStartDate & " 00:00 AM" & Chr(34) & " AND [End] <= " & Chr(34) & dEndDate & " 11:59 PM" & Chr(34)
Set objItemsInDateRange = objItems.Restrict(strFilter)
objItemsInDateRange.Sort "[Start]"
For Each objAppointment In objItemsInDateRange
'Cancel the meetings in this date range
If objAppointment.MeetingStatus = olMeeting Then
If objAppointment.Organizer = Outlook.Session.CurrentUser Then
objAppointment.MeetingStatus = olMeetingCanceled
objAppointment.Save
objAppointment.Send
objAppointment.Delete
Else
Set objResponse = objAppointment.Respond(olMeetingDeclined)
objResponse.Send
objAppointment.Delete
End If
End If
Next
End If
End Sub
- В конце концов, вы можете запустить этот макрос прямо сейчас.
- В текущем окне макроса нажмите клавишу «F5».
- Далее вам потребуется указать диапазон дат.
- После этого появится другое диалоговое окно, в котором необходимо выбрать исходную папку календаря и нажать «ОК».
- Наконец, когда макрос завершится, вы увидите, что все встречи в указанном диапазоне дат были отменены.
- В папке «Отправленные» вы можете найти отмену собрания, как показано на снимке экрана ниже:
Исправить ошибки Outlook
Если вы использовали Outlook в течение десятилетий, вы, должно быть, столкнулись с несколькими ошибками. К счастью, Outlook поставляется со встроенным инструментом восстановления — Scanpst. Вы можете использовать его для исправить Outlook ошибки. Тем не менее, если это не удается, вашим последним средством являются внешние инструменты исправления, такие как DataNumen Outlook Repair. Он может сканировать файл Outlook и исправлять most ошибок и даже легко восстановить поврежденные данные Outlook.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com