Как да отложа изпращането на покана за среща в Outlook?

Автор: Xiaoyang Последна промяна: 2018-11-30

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

Отлагане на изпращане на покана за среща в Outlook с VBA код

Отлагане на изпращане на покана за среща в Outlook с VBA код

Може би няма директен начин за забавяне на покана за среща в Outlook, но кодът VBA по-долу може да ви направи услуга, моля, направете следното:

1. Първо, трябва да създадете нова задача. В новия Task прозорец:

(1.) Посочете темата, началната и крайната дата на срещата;

(2.) Задайте дата и час за напомняне, когато искате да изпратите поканата за среща;

(3.) Въведете съобщението за срещата, както ви е необходимо.

doc забавяне на изпращането на среща 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(",,", ",")
    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 забавяне на изпращането на среща 2

Забележка: В горния код: Тест за среща е темата, която сте създали за срещата в стъпка 1; и трябва да промените информацията за адреси на получатели, място за среща, начален час намлява продължителност на срещата към своите.

5. Запазете и затворете кода, след което рестартирайте Outlook, за да влезе в сила този код.

6. Отсега нататък, когато напомнянето за елемент от задачата се появи в определеното от вас време, Outlook ще изпрати автоматично поканата за среща.