Přejít k hlavnímu obsahu

Jak automaticky přijmout žádost o schůzku od konkrétní osoby v aplikaci Outlook?

Když obdržíte pozvánku na schůzku v Outlooku, musíte ručně přijmout žádost o schůzku a odeslat odpověď odesílateli. Existuje nějaký snadný způsob, jak to automaticky přijmout od konkrétní osoby v Outlooku? Metoda v tomto článku vám udělá laskavost.

Automaticky přijmout žádost o schůzku od konkrétní osoby s kódem VBA


Automaticky přijmout žádost o schůzku od konkrétní osoby s kódem VBA

Níže uvedený kód VBA vám pomůže automaticky přijmout žádost o schůzku odeslanou od konkrétní osoby v aplikaci Outlook. Postupujte prosím následovně.

1. zmáčkni Další + 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 v levém podokně otevřete okno Kód a poté zkopírujte níže uvedený kód VBA do okna. Viz snímek obrazovky:

Kód VBA: Automaticky přijímat žádost o schůzku od konkrétní osoby v aplikaci Outlook

Public WithEvents GItems As Outlook.Items
'Updated by ExtendOffice 20180814
Private Sub Application_Startup()
    Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
    Set xMtRequest = Item
    Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
    If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
        With xAppointmentItem
            .ReminderMinutesBeforeStart = 45
            .Categories = "Orange Category"
            .Save
        End With
        Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted)
        xMtResponse.Send
        xMtRequest.Delete
    End If
End If
End Sub

Poznámka: V kódu prosím nahraďte „Jméno odesílatele“Se zobrazovaným jménem odesílatele.

3. Uložte kód a stiskněte Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.

4. Restartujte aplikaci Outlook, aby se tento efekt kódu projevil.

Od této chvíle bude při přijímání žádostí o schůzku odeslaných od osoby, kterou jste uvedli v kódu, schůzka automaticky přijata a odesílatel také obdrží e-mail s odpovědí.

Poznámka: E-mailový účet, který přijímá žádost o schůzku, by měl být výchozím účtem ve vašem Outlooku.


Související články:


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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This works for me in latest Outlook 365 but the deletion step never occurs. "rRequest.Delete" seems pretty straightforward -- but maybe something has changed in recent releases?
This comment was minimized by the moderator on the site
for me the xMtResponse object isn't being set and the macro errors out. Any updates for Outlook 2016?
This comment was minimized by the moderator on the site
Doesnt work, my appointments still need confirmation
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations