Как автоматически перемещать входящие собрания в определенный календарь Outlook

Возможно, вы привыкли отделять входящие встречи от созданных вами встреч. В этой ситуации вам понадобится способ автоматического перемещения входящих собраний в определенный календарь. Эта статья покажет вам такой умный метод.

По умолчанию Outlook автоматически сохраняет входящие собрания в календаре по умолчанию. Но многие пользователи предпочитают хранить встречи отдельно, не смешивая их с общими встречами. Следовательно, они хотят, чтобы Outlook автоматически перемещал входящие встречи в календарь, отличный от используемого по умолчанию. Хотя Outlook не предлагает для этого никаких встроенных функций, этого все же можно добиться с помощью небольшого количества сценариев. В дальнейшем мы представим его подробно.

Автоматическое перемещение входящих совещаний в определенный календарь

1. Для начала откройте редактор Outlook VBA. О шагах читайте в статье «Как запустить код VBA в Outlook».
2. Затем в новом окне поместите следующий код VBA в модуль.

Sub MoveIncomingMeeting(objItem As MeetingItem)
    Dim objMeetingRequest As Outlook.MeetingItem
    Dim objMeeting As Outlook.AppointmentItem
    Dim objCopiedMeeting As Outlook.AppointmentItem
    Dim objCalendar As Outlook.Folder
 
    If TypeOf objItem Is MeetingItem And Left(objItem.Subject, 9) <> "Canceled:" Then
       Set objMeetingRequest = objItem
       Set objMeeting = objMeetingRequest.GetAssociatedAppointment(True)
       Set objCopiedMeeting = objMeeting.Copy
 
       'Change to your own calendar
       Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar).Folders("Meetings")
       Set objCopiedMeeting = objCopiedMeeting.Move(objCalendar)
       If Left(objCopiedMeeting.Subject, 6) = "Copy: " Then
          objCopiedMeeting.Subject = Replace(objCopiedMeeting.Subject, "Copy: ", "")
          objCopiedMeeting.Save
       End If
 
       objMeeting.Delete
    End If
End Sub

3. После этого выйдите из редактора VBA.
4. Позже перейдите в «Файл» и нажмите кнопку «Управление правилами и предупреждениями».
5. В новом окне нажмите «Новое правило».
6. Затем во всплывающем диалоговом окне выберите «Применить правило к сообщениям, которые я получаю» и нажмите «Далее».
7. Затем укажите условия правила в соответствии с вашими потребностями и нажмите «Далее».
8. На шаге «Действие правила» выберите «Запустить скрипт» и укажите ранее добавленный макрос.
9. После этого следуйте инструкциям на экране, чтобы завершить настройку правила.
10. Отныне каждый раз, когда вы получаете приглашение на собрание, Outlook автоматически перемещает соответствующее собрание в определенный календарь.

Усильте защиту данных Outlook

There is no denying that Outlook is indeed feature rich. But, it doesn’t mean that it can get rid of errors or damage permanently. In fact, on the contrary, Outlook is considerably vulnerable. Any tiny issues can lead it to crash, thereby resulting in Outlook data loss. Hence, you have to reinforce your Outlook data protection. To be specific, you need to make regular backups, keep spams, viruses or malware at bay and prepare a remarkable ремонт PST инструмент, как DataNumen Outlook Repair.

Об авторе:

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