Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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


Легко удалять повторяющиеся письма из указанных адресов электронной почты сразу в Outlook:

Удалить Дублированные письма полезности Kutools for Outlook может помочь вам быстро удалить все повторяющиеся письма из электронной почты или нескольких указанных папок одновременно в Outlook. Смотрите скриншот:

Kutools for Outlook: с более чем 40 удобными надстройками Outlook, бесплатно попробовать без ограничений в 45-дни. Скачать и бесплатно пробную версию!


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

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

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

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

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

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

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


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

Рекомендуемые инструменты производительности

выстрел kutools Outlook Outlook вкладка kutools
выстрел kutools внешний вид kutools плюс вкладка

Kutools для Outlook - больше, чем расширенные функции 100 для Outlook, повышайте эффективность 70% для вас

  • Сложные и повторные операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Переадресация нескольких электронных писем по отдельности одним щелчком мыши и автоматическая пересылка по правилам.
  • Авто CC / BCC при каждой отправке электронной почты и простота настройки правил, а также автоматический ответ без необходимости обмена сервером.
  • Мощный фильтр нежелательной почты, удаление дубликатов электронных писем, ответ с вложением, куча операций одним нажатием и так далее ...
  • 60-день неограниченная бесплатная пробная версия. 60-дневная гарантия возврата денег. 2 лет бесплатное обновление и поддержка. Купить один раз, использовать навсегда.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.