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

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.

doc késlelteti az értekezlet elküldését

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

doc késlelteti az értekezlet elküldését

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.


Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
  • Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
  • Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
lövés kutools outlook kutools fül 1180x121
shot kutools outlook kutools plus tab 1180x121
 
A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi