Tip: Jiné jazyky jsou přeloženy společností Google. Můžete navštívit English verze tohoto odkazu.
Přihlásit se
x
or
x
x
Registrovat
x

or

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

Při přijímání pozvánky na schůzku v aplikaci Outlook musíte ručně přijmout požadavek na schůzku a odeslat odpověď odesilateli. Existuje nějaký snadný způsob, jak ji automaticky přijmout od konkrétní osoby v aplikaci Outlook? Metoda v tomto článku vám udělá přízeň.

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


Snadné odstranění duplicitních e-mailů ze zadaných složek e-mailu najednou v aplikaci Outlook:

Vymazání Duplicitní e-maily užitečnost Kutools pro aplikaci Outlook vám pomůže rychle odstranit všechny duplicitní e-maily z e-mailového foder nebo více zadaných složek najednou v aplikaci Outlook. Zobrazit screenshot:

Kutools pro aplikaci Outlook: s více než 40 šikovnými doplňky aplikace Outlook, můžete zkusit bez omezení v 45 dnech. Stáhněte si bezplatnou zkušební verzi teď!


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

Níže uvedený kód VBA vám může pomoci automaticky přijmout žádost o schůzku, která byla odeslána od konkrétní osoby v aplikaci Outlook. Postupujte následujícím způsobem.

1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klikněte dvakrát ThisOutlookSession v levém podokně otevřete okno Kód a poté zkopírujte pod kód VBA do okna. Zobrazit screenshot:

Kód VBA: Auto 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 zadejte "Jméno odesílatele"S zobrazovaným názvem odesílatele.

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

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

Od tohoto okamžiku při přijímání žádostí o schůzku zaslaných od osoby, kterou jste uvedli v kódu, bude schůzka automaticky přijata a odesílatel obdrží také odpověď na e-mail.

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


Související články:

Doporučené nástroje pro produktivitu

shot kutools karta výhledu kutools 1180x121
shot kutools výhled kutools plus karta 1180x121

Kutools pro aplikaci Outlook - více než rozšířené funkce 100 pro aplikaci Outlook, Zlepšit efektivitu 70% pro vás

  • Komplikované a opakované operace lze provádět jednorázově během několika sekund.
  • Přeposlat více e-mailů jednotlivě jedním kliknutím a automaticky předat podle pravidel.
  • Auto CC / BCC každé odesílání e-mailů a snadné přizpůsobení pravidel a automatická odpověď bez nutnosti výměny serveru.
  • Výkonný filtr nevyžádaných e-mailů, odstranění duplicitních e-mailů, odpověď s přílohou, banda operací jedním klepnutím a tak dále ...
  • 60-denní neomezená zkušební verze zdarma. 60-day záruka vrácení peněz. 2 let zdarma upgrade a podporu. Kupte jednou, použijte navždy.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.