Як затримати надсилання запрошення на нараду в Outlook? 

Зазвичай ви можете застосувати функцію затримки доставки для надсилання повідомлення в певний час, а не зараз. Але, іноді, ви хочете відкласти надсилання запрошення на зустріч, як електронне повідомлення. Як ви могли надіслати запрошення на зустріч у потрібний час, як вам потрібно в Outlook?

Відкладіть запрошення на зустріч в Outlook із кодом VBA

Відкладіть запрошення на зустріч в Outlook із кодом VBA

Можливо, прямого способу відкласти запрошення на нараду в перспективі немає, але, наведений нижче код 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(",,", ",")
    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 автоматично надсилатиме запрошення на нараду.