Jak opóźnić wysłanie zaproszenia na spotkanie w Outlooku?

Zwykle możesz zastosować funkcję opóźnionego dostarczania, aby wysłać wiadomość o określonej godzinie, a nie teraz. Ale czasami chcesz opóźnić wysyłanie zaproszenia na spotkanie, takie jak e-mail. Jak możesz wysłać zaproszenie na spotkanie w wybranym przez Ciebie czasie w Outlooku?

Opóźnij wysyłanie zaproszenia na spotkanie w Outlooku za pomocą kodu VBA

Opóźnij wysyłanie zaproszenia na spotkanie w Outlooku za pomocą kodu VBA

Być może nie ma bezpośredniego sposobu na opóźnienie zaproszenia na spotkanie w programie Outlook, ale poniższy kod VBA może wyświadczyć ci przysługę, wykonaj następujące czynności:

1. Najpierw powinieneś utworzyć nowe zadanie. W nowym Zadanie okno:

(1.) Określ temat, datę rozpoczęcia, datę zakończenia spotkania;

(2.) Ustaw datę i godzinę przypomnienia, kiedy chcesz wysłać zaproszenie na spotkanie;

(3.) Wpisz potrzebną wiadomość ze spotkania.

doc opóźnienie wysłania spotkania 1

2. Po utworzeniu zadania kliknij Zapisz i zamknij możliwość zamknięcia tego okna.

3. Następnie przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

4, w Microsoft Visual Basic for Applications kliknij dwukrotnie Ta sesja programu Outlook z Project1 (VbaProject.OTM) okienko, aby otworzyć tryb, a następnie skopiuj i wklej następujący kod do pustego modułu.

Kod VBA: Opóźnij wysyłanie zaproszenia na spotkanie:

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 opóźnienie wysłania spotkania 2

Note: W powyższym kodzie: Test spotkania to temat, który utworzyłeś dla spotkania w kroku 1; i powinieneś zmienić informacje o adresy odbiorców, miejsce spotkania, czas rozpoczęcia i czas trwania spotkania do własnego.

5. Zapisz i zamknij kod, a następnie uruchom ponownie program Outlook, aby kod zaczął obowiązywać.

6. Odtąd, gdy przypomnienie o zadaniu pojawi się o określonej godzinie, program Outlook automatycznie wyśle zaproszenie na spotkanie.