Jak odložit odesílání pozvánky na schůzku v Outlooku?

Autor: Xiaoyang Naposledy změněno: 2018-11-30

Za normálních okolností můžete použít funkci Zpožděné doručení pro odeslání zprávy v konkrétní čas, nikoli právě teď. Někdy však chcete odložit odesílající pozvánku na schůzku jako e-mail. Jak byste mohli v Outlooku odeslat pozvánku na schůzku v požadovaném čase, jak potřebujete?

Zpoždění odesílající pozvánky na schůzku v Outlooku s kódem VBA

Zpoždění odesílající pozvánky na schůzku v Outlooku s kódem VBA

Je možné, že neexistuje žádný přímý způsob, jak odložit pozvání na schůzku v aplikaci Outlook, ale níže uvedený kód VBA vám může udělat laskavost, udělejte to takto:

1. Nejprve byste měli vytvořit nový úkol. V novém Úkol okno:

(1.) Uveďte předmět, datum zahájení, datum ukončení schůzky;

(2.) Nastavte datum a čas připomenutí, kdy chcete poslat pozvánku na schůzku;

(3.) Napište zprávu o schůzce, jak potřebujete.

odeslání schůzky se zpožděním dokumentu 1

2. Po vytvoření úkolu klikněte Uložit a zavřít možnost zavřít toto okno.

3. Poté podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

4. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete režim a poté zkopírujte a vložte následující kód do prázdného modulu.

Kód VBA: Zpoždění odesílání pozvánky na schůzku:

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

odeslání schůzky se zpožděním dokumentu 2

Poznámka: Ve výše uvedeném kódu: Test schůzky je předmět, který jste vytvořili pro schůzku v kroku 1; a měli byste změnit informace o adresy příjemců, místo schůzky, Doba spuštění a trvání schůzky k sobě.

5. Uložte a zavřete kód a poté restartujte Outlook, aby se tento kód projevil.

6. Od nynějška, když se připomenutí položky úkolu objeví v konkrétní čas, který nastavíte, Outlook automaticky odešle pozvánku na schůzku.