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

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

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

---

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

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

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

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

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

(3.) Введите текст приглашения на встречу так, как вам удобно.

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

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

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

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