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

Author Xiaoyang Last modified 2025-08-26

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

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

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

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications дважды щелкните 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. Теперь, когда вы получаете приглашение на встречу, она будет автоматически принята, и одновременно это приглашение будет немедленно переслано указанному вами человеку.

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