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

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

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

---

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

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

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

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

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

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

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

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

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

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