Přejít k hlavnímu obsahu

Jak automaticky předávat pozvánky na schůzku konkrétní osobě v Outlooku? 

V aplikaci Outlook můžete předat pozvánku na schůzku konkrétní osobě přímo pomocí funkce Předat ručně. Někdy však možná budete muset předat pozvánky na schůzku konkrétní osobě automaticky, když schůzku přijmete. V tomto článku budu hovořit o tom, jak automaticky předat pozvání na schůzku osobě co nejrychleji.

Přeposlat pozvánku na schůzku konkrétní osobě automaticky v Outlooku s kódem VBA


Přeposlat pozvánku na schůzku konkrétní osobě automaticky v Outlooku s kódem VBA

Zde je užitečný kód VBA, který vám pomůže automaticky předat pozvánku na schůzku konkrétní osobě po jejím přijetí, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete režim a poté zkopírujte a vložte následující kód do prázdného modulu.

Kód VBA: Automatické předávání schůzek zve ke konkrétní osobě:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As MeetingItem
Dim xMeetingResponse As MeetingItem
Dim xForwardMeeting As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    Set xAppointmentItem = xMeetingItem.GetAssociatedAppointment(True)
    Set xMeetingResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
    xMeetingResponse.Send
    Set xForwardMeeting = xMeetingItem.Forward
    With xForwardMeeting
        With .Recipients
            .Add "" 'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End If
End Sub

Poznámka: Ve výše uvedeném kódu byste měli změnit adresu příjemce na svoji vlastní.

schůzka automatického předávání dokumentů 1

3. Poté kód uložte a restartujte aplikaci Outlook, aby se efekt kódu projevil.

4. Nyní, když obdržíte pozvánku na schůzku, bude schůzka automaticky přijata a zároveň bude tato schůzka okamžitě automaticky předána vaší konkrétní osobě.

Poznámka: Tento kód je k dispozici pouze pro výchozí účet.


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ótimo código!
Mas como faço para, em vez de aceitar os convites automaticamente e os encamilha-los, encaminhar para outro e-mail apenas os que eu aceitei (os que eu não aceitar ele ignora)?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations