Как автоматически перемещать отправленные приглашения на собрания в определенную папку в Outlook

Перспективные решения 29 сентября, 2025
Поделись сейчас:

Многие пользователи ищут методы настройки Outlook для автоматического перемещения отправленных приглашений на собрания в определенную папку. В этой статье мы поделимся простым способом реализовать это.

Outlook всегда сохраняет все типы отправленных элементов, независимо от того, электронные письма, запросы задач или приглашения на собрания в папке «Отправленные». Таким образом, вы обнаружите, что ваша папка «Отправленные» значительно запутана. Таким образом, вы можете захотеть, чтобы ваш Outlook автоматически перемещал и сохранял приглашения на собрания в другую папку.

Автоматическое перемещение отправленных приглашений на собрания в определенную папку в Outlook

Когда вы составляете электронное письмо, вы можете найти «Сохранить отправленное в другую папку» на вкладке «Параметры». Это позволяет пользователям изменять папку для сохранения писем перед отправкой. Тем не менее, такая функция недоступна для приглашения на собрание. Что вы можете сделать, так это переместить отправленные приглашения на собрание после отправки. Далее мы научим вас, как добиться такого «автоматического перемещения» с помощью кода VBA.

Автоматическое перемещение отправленных приглашений на собрания в определенную папку

  1. В самом начале нажмите кнопки «Alt+F11» в Outlook.
  2. Затем, войдя в редактор VBA, откройте проект «ThisOutlookSession».
  3. Затем скопируйте и вставьте следующий код VBA в этот проект.
'As Meeting will be auto saved in Sent Items folder
'Here we will monitor the new item in this folder
Public WithEvents objSentFolder As Outlook.Folder
Public WithEvents objSentItems As Outlook.Items

Private Sub Application_Startup()
    Set objSentFolder = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail)
    Set objSentItems = objSentFolder.Items
End Sub

Private Sub objSentItems_ItemAdd(ByVal Item As Object)
    Dim objMeetingInvitation As Outlook.MeetingItem
    Dim objTargetFolder As Outlook.Folder
 
    'If the new item is meeting item
    If TypeOf Item Is MeetingItem Then
       Set objMeetingInvitation = Item
 
       'Get the target folder
       On Error Resume Next
       Set objTargetFolder = objSentFolder.Folders("Meeting Requests")
       If objTargetFolder Is Nothing Then
          Set objTargetFolder = objSentFolder.Folders.Add("Meeting Requests")
       End If
 
       'Move it
       objMeetingInvitation.Move objTargetFolder
    End If
End Sub

Код VBA - автоматическое перемещение отправленных приглашений на собрание в определенную папку

  1. Затем поместите курсор в подпрограмму «Application_Startup» и нажмите клавишу «F5», чтобы активировать этот новый макрос.
  2. С тех пор каждый раз после отправки приглашения на собрание оно будет автоматически перемещаться в папку назначения, предварительно определенную в приведенном выше коде, как показано на рисунке ниже.Отправленные приглашения на встречи

Вопросы необходимости в восстановлении данных Outlook

Как мы все знаем, Outlook может время от времени давать сбой. Следовательно, пользователи часто сталкиваются с тем, что файл Outlook становится недоступным. В это время вы должны выполнить восстановление данных Outlook. Если вы совсем новичок в этом отношении, вам нужно сделать некоторые приготовления, включая проверку резервных копий данных, инструмент исправления входящих сообщений — Scanpst, а также надежный внешний инструмент исправления Outlook, например DataNumen Outlook Repair. С ними вы можете восстановить Outlook файл, не вспотев.

Об авторе:

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

Поделись сейчас:

Комментарии закрыты.