Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Xiaoyang Last modified

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

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


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

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

1. Сначала нужно создать новую задачу. В окне новой Задачи:

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

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

(3.) Напишите текст приглашения на собрание по вашему усмотрению.

doc delay sending meeting 1

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

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

4. В окне Microsoft Visual Basic для приложений дважды щелкните ThisOutlookSession в панели Project1(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
doc delay sending meeting 2

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

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

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


Лучшие инструменты для повышения продуктивности работы с Office

Срочные новости: бесплатная версия Kutools для Outlook уже доступна!

Оцените обновленный Kutools для Outlook с более чем100 невероятными функциями! Нажмите, чтобы скачать прямо сейчас!

🤖 Kutools AI : Использует передовые технологии искусственного интеллекта для легкой работы с Email — включая Ответ, Резюме, Оптимизацию, Расширение, Перевод и Составление писем.

📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...

📨 Управление Email: Отозвать письмо / Блокировать вредоносные письма по теме и другим критериям / Удалить дубликаты / Расширенный Поиск / Организовать папки ...

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

🌟 Волшебство интерфейса: 😊Больше красивых и стильных эмодзи / Напоминание при поступлении важных писем / Свернуть Outlook вместо закрытия ...

👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...

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

Используйте Kutools на вашем языке – поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и более40 других!

Мгновенно активируйте Kutools для Outlook одним кликом. Не ждите – скачайте и улучшите свою эффективность прямо сейчас!

kutools for outlook features1 kutools for outlook features2

🚀 Скачайте все дополнения Office одним кликом

Рекомендуем: Kutools для Office (5-в-1)

Скачайте сразу пять установщиков одним кликом — Kutools для Excel, Outlook, Word, PowerPoint и Office Tab Pro. Нажмите, чтобы скачать прямо сейчас!

  • Все просто: скачайте все пять установочных пакетов одним действием.
  • 🚀 Готово для любой задачи Office: Установите нужные дополнения тогда, когда они вам понадобятся.
  • 🧰 Включено: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools для PowerPoint