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(",,", ",")
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.
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.