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:
- Jak odmítnout pozvánku na schůzku, ale přesto ji ponechat ve svém kalendáři v aplikaci Outlook?
- Jak odmítnout všechny budoucí schůzky s výskytem v aplikaci Outlook?
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? 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 Pro: Dá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.