Note: The other languages of the website are Google-translated. Back to English

Как отложить отправку приглашения на собрание в Outlook? 

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

Отложить отправку приглашения на собрание в Outlook с помощью кода VBA


Отложить отправку приглашения на собрание в Outlook с помощью кода VBA

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

1. Во-первых, вы должны создать новую задачу. В новом Сложность задачи окна:

(1.) Укажите тему, дату начала и дату окончания собрания;

(2.) Установите дату и время напоминания, когда вы хотите отправить приглашение на собрание;

(3.) Введите сообщение о встрече, как вам нужно.

документ задерживает отправку встречи 1

2. После создания задачи нажмите Сохранить и закрыть возможность закрыть это окно.

3. Затем зажмите ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

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

Код VBA: отложить отправку приглашения на собрание:

Private Sub Application_Reminder(ByVal Item As Object)
    Dim xTaskItem As TaskItem
    Dim xAppointmentItem As AppointmentItem
    Dim xRcpArr() As String
    If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
        Exit Sub
    End If
    Set xTaskItem = Item
    xRcpArr = VBA.Split("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
    Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
    With xAppointmentItem
        .MeetingStatus = olMeeting
        For i = 0 To UBound(xRcpArr)
            .Recipients.Add (xRcpArr(i))
        Next
        .Subject = xTaskItem.Subject
        .Location = "Office room 1002"
        .Start = xTaskItem.StartDate + #2:00:00 PM#
        .Body = xTaskItem.Body
        .Duration = 120
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 20
        .Save
        .Send
    End With
    xTaskItem.MarkComplete
    Set xTaskItem = Nothing
End Sub

документ задерживает отправку встречи 2

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

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

6. С этого момента, когда напоминание об элементе задачи появляется в указанное вами время, Outlook автоматически отправляет приглашение на собрание.


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL