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

Когда вы получаете приглашение на встречу в Outlook, вам приходится вручную принимать запрос и отправлять ответ отправителю. Хотите автоматически принимать такие приглашения от определённого человека? Метод, описанный в этой статье, поможет вам легко решить эту задачу.

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

---

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

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

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

2. В окне Microsoft Visual Basic for Applications дважды щёлкните элемент ThisOutlookSession на левой панели, чтобы открыть окно кода, затем скопируйте приведённый ниже код VBA в это окно. См. снимок экрана:

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

Public WithEvents GItems As Outlook.Items
'Updated by ExtendOffice 20180814
Private Sub Application_Startup()
    Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
    Set xMtRequest = Item
    Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
    If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
        With xAppointmentItem
            .ReminderMinutesBeforeStart = 45
            .Categories = "Orange Category"
            .Save
        End With
        Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted)
        xMtResponse.Send
        xMtRequest.Delete
    End If
End If
End Sub

Примечание: в коде замените «Имя отправителя» на имя отправителя, которое будет отображаться.

3. Сохраните код, а затем нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic for Applications.

4. Перезапустите Outlook, чтобы код активировался.

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

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

；

---

См. также:

• Как отказаться от приглашения на встречу, сохранив её в календаре Outlook?
• Как отказаться от всех будущих встреч в серии в Outlook?