Перейти к основному содержанию

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

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

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


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

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

1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окно, дважды щелкните Эта сессия Outlook на левой панели, чтобы открыть окно кода, а затем скопируйте в окно ниже код 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. Сохраните код, затем нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.

4. Перезапустите Outlook, чтобы применить этот кодовый эффект.

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

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


Статьи по теме:


Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения ProПакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This works for me in latest Outlook 365 but the deletion step never occurs. "rRequest.Delete" seems pretty straightforward -- but maybe something has changed in recent releases?
This comment was minimized by the moderator on the site
for me the xMtResponse object isn't being set and the macro errors out. Any updates for Outlook 2016?
This comment was minimized by the moderator on the site
Doesnt work, my appointments still need confirmation
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations