Hogyan késleltetheti az értekezlet-meghívó küldését az Outlook programban? 

Általában a Késleltetett kézbesítés funkciót alkalmazhatja üzenetküldésre egy adott időpontban, a jelenlegi helyett. De néha el akarja halasztani az értekezlet-meghívó küldését, mint például egy e-mailt. Hogyan küldhetne értekezlet-meghívót a kívánt időpontban, amire az Outlookban szüksége van?

Késleltesse az értekezlet-meghívó küldését az Outlookban VBA-kóddal

---

Késleltesse az értekezlet-meghívó küldését az Outlookban VBA-kóddal

Lehetséges, hogy nincs kilátásba vetve az értekezlet-meghívás közvetlen késleltetése, de az alábbi VBA-kód jót tehet Önnek, kérjük, tegye a következőket:

1. Először létre kell hoznia egy új feladatot. Az újban Feladat ablak:

(1.) Adja meg az értekezlet tárgyát, kezdési és befejezési dátumát;

(2.) Állítson be egy emlékeztető dátumot és időpontot, amikor el akarja küldeni az értekezlet meghívóját;

(3.) Írja be az értekezlet üzenetét, amire szüksége van.

2. A feladat létrehozása után kattintson a gombra Mentés és bezárás opció az ablak bezárásához.

3. Ezután tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

4. Az Microsoft Visual Basic for Applications ablakban kattintson duplán ThisOutlookSession tól Project1 (VbaProject.OTM) ablaktáblán nyissa meg a módot, majd másolja és illessze be a következő kódot az üres modulba.

VBA kód: Késlelteti az értekezlet-meghívó küldését:

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

Megjegyzések: A fenti kódban: Találkozó teszt az a téma, amelyet az 1. lépésben létrehozott az értekezlethez; és meg kell változtatnia a címzett címeit, találkozó helye, kezdési idő és a az ülés időtartama a sajátodhoz.

5. Mentse és zárja be a kódot, majd indítsa újra az Outlook programot, hogy ez a kód életbe lépjen.

6. Mostantól kezdve, amikor a feladatelemre vonatkozó emlékeztető megjelenik a megadott időpontban, az Outlook automatikusan elküldi az értekezlet-meghívót.