Kako odložiti pošiljanje vabila na sestanek v Outlooku?

Običajno lahko funkcijo odložitve dostave uporabite za pošiljanje sporočila ob določenem času namesto zdaj. Toda včasih želite odložiti povabilo na sestanek, kot je e-pošta. Kako lahko pošljete vabilo na sestanek ob želenem času, kot ga potrebujete v Outlooku?

Odložite povabilo na sestanek v Outlooku s kodo VBA

Odložite povabilo na sestanek v Outlooku s kodo VBA

Mogoče ni neposredne možnosti za odložitev povabila na sestanek, vendar vam spodnja koda VBA lahko naredi uslugo, storite tako:

1. Najprej morate ustvariti novo nalogo. V novem Naloga okno:

(1.) Navedite temo, datum začetka in datum konca sestanka;

(2.) Nastavite datum in uro opomnika, ko želite poslati vabilo na sestanek;

(3.) Po potrebi vnesite sporočilo o sestanku.

doc zamuda pri pošiljanju sestanka 1

2. Po izdelavi naloge kliknite Shrani in zapri možnost zapiranja tega okna.

3. Nato držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

4. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession Iz Projekt1 (VbaProject.OTM) , da odprete način, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.

Koda VBA: Odložite pošiljanje vabila na sestanek:

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 zamuda pri pošiljanju sestanka 2

Opombe: V zgornji kodi: Test srečanja je tema, ki ste jo ustvarili za sestanek v 1. koraku; in bi morali spremeniti podatke o naslovi prejemnikov, kraj srečanja, Začetni čas in trajanje sestanka svojemu.

5. Shranite in zaprite kodo, nato znova zaženite Outlook, da začne ta koda veljati.

6. Od zdaj naprej, ko se v določenem času prikaže opomnik za element opravila, bo Outlook samodejno poslal vabilo na sestanek.