Przejdź do głównej zawartości

Jak automatycznie akceptować wezwanie na spotkanie od określonej osoby w Outlooku?

Otrzymując zaproszenie na spotkanie w Outlooku, musisz ręcznie zaakceptować wezwanie na spotkanie i wysłać odpowiedź do nadawcy. Czy istnieje łatwy sposób na automatyczne zaakceptowanie go od określonej osoby w Outlooku? Metoda opisana w tym artykule wyświadczy ci przysługę.

Automatycznie akceptuj wezwanie na spotkanie od określonej osoby z kodem VBA


Automatycznie akceptuj wezwanie na spotkanie od określonej osoby z kodem VBA

Poniższy kod VBA może pomóc w automatycznym zaakceptowaniu wezwania na spotkanie wysłanego od określonej osoby w Outlooku. Wykonaj następujące czynności.

1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications kliknij dwukrotnie Ta sesja programu Outlook w lewym okienku, aby otworzyć okno Kod, a następnie skopiuj poniższy kod VBA do okna. Zobacz zrzut ekranu:

Kod VBA: Automatycznie akceptuj wezwanie na spotkanie od określonej osoby w Outlooku

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

Note: W kodzie proszę zastąpić „Nazwa nadawcy”Z wyświetlaną nazwą nadawcy.

3. Zapisz kod, a następnie naciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.

4. Uruchom ponownie program Outlook, aby zastosować ten efekt kodu.

Odtąd, po otrzymaniu wezwania na spotkanie wysłanego od osoby podanej w kodzie, spotkanie zostanie automatycznie zaakceptowane, a nadawca otrzyma również e-mail z odpowiedzią.

Note: Konto e-mail, które ma odbierać wezwanie na spotkanie, powinno być kontem domyślnym w programie Outlook.


Podobne artykuły:


Najlepsze narzędzia biurowe

Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy

🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...

📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP)  /  Zaplanuj wysyłanie wiadomości e-mail  /  Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail  /  Automatyczne przewijanie (Zasady zaawansowane)   /  Automatyczne dodawanie powitania   /  Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...

📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili  /  Blokuj oszukańcze wiadomości e-mail według tematów i innych  /  Usuń zduplikowane wiadomości e-mail  /  Wiecej opcji  /  Konsoliduj foldery ...

📁 Załączniki ProZapisz zbiorczo  /  Odłącz partię  /  Kompresuj wsadowo  /  Automatyczne zapisywanie   /  Automatyczne odłączanie  /  Automatyczna kompresja ...

🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów   /  Zwiększ produktywność programu Outlook dzięki widokom na kartach  /  Zminimalizuj program Outlook zamiast go zamykać ...

>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki  /   E-maile chroniące przed phishingiem  /  🕘Pokaż strefę czasową nadawcy ...

👩🏼‍🤝‍👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili  /  Podziel grupę kontaktów na pojedyncze grupy  /  Usuń przypomnienia o urodzinach ...

O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.

 

 

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