Как настроить автоматическое перенаправление приглашения на встречу определённому человеку в Outlook?

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

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

---

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

Вот полезный код VBA, который автоматически перенаправляет приглашение на встречу указанному человеку сразу после его принятия. Выполните следующие действия:

1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2. В окне Microsoft Visual Basic для приложений дважды щёлкните элемент ThisOutlookSession в области Project1 (VbaProject.OTM), чтобы открыть модуль, а затем скопируйте и вставьте приведённый ниже код в пустой модуль.

Код VBA: Автоматическое перенаправление приглашения на встречу определённому человеку:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As MeetingItem
Dim xMeetingResponse As MeetingItem
Dim xForwardMeeting As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    Set xAppointmentItem = xMeetingItem.GetAssociatedAppointment(True)
    Set xMeetingResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
    xMeetingResponse.Send
    Set xForwardMeeting = xMeetingItem.Forward
    With xForwardMeeting
        With .Recipients
            .Add "skyyang@addin88.com" 'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End If
End Sub

Примечание: В приведённом выше коде обязательно замените адрес получателя на свой собственный.

3. Сохраните код и перезапустите Outlook, чтобы изменения вступили в силу.

4. Теперь, когда вы получите приглашение на встречу, оно будет автоматически принято, и одновременно эта встреча будет немедленно перенаправлена указанному вами человеку.

Примечание: Данный код работает только для учетной записи по умолчанию.