Note: The other languages of the website are Google-translated. Back to English

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("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

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.


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije