Как автоматически перемещать входящие собрания в определенный календарь 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

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

Об авторе:

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