Jak opóźnić wysłanie zaproszenia na spotkanie w Outlooku?
Zwykle możesz zastosować funkcję opóźnionego dostarczania, aby wysłać wiadomość o określonej godzinie, a nie teraz. Ale czasami chcesz opóźnić wysyłanie zaproszenia na spotkanie, takie jak e-mail. Jak możesz wysłać zaproszenie na spotkanie w wybranym przez Ciebie czasie w Outlooku?
Opóźnij wysyłanie zaproszenia na spotkanie w Outlooku za pomocą kodu VBA
Opóźnij wysyłanie zaproszenia na spotkanie w Outlooku za pomocą kodu VBA
Być może nie ma bezpośredniego sposobu na opóźnienie zaproszenia na spotkanie w programie Outlook, ale poniższy kod VBA może wyświadczyć ci przysługę, wykonaj następujące czynności:
1. Najpierw powinieneś utworzyć nowe zadanie. W nowym Zadanie okno:
(1.) Określ temat, datę rozpoczęcia, datę zakończenia spotkania;
(2.) Ustaw datę i godzinę przypomnienia, kiedy chcesz wysłać zaproszenie na spotkanie;
(3.) Wpisz potrzebną wiadomość ze spotkania.
2. Po utworzeniu zadania kliknij Zapisz i zamknij możliwość zamknięcia tego okna.
3. Następnie przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
4, w Microsoft Visual Basic for Applications kliknij dwukrotnie Ta sesja programu Outlook z Project1 (VbaProject.OTM) okienko, aby otworzyć tryb, a następnie skopiuj i wklej następujący kod do pustego modułu.
Kod VBA: Opóźnij wysyłanie zaproszenia na spotkanie:
Private Sub Application_Reminder(ByVal Item As Object)
Dim xTaskItem As TaskItem
Dim xAppointmentItem As AppointmentItem
Dim xRcpArr() As String
If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
Exit Sub
End If
Set xTaskItem = Item
xRcpArr = VBA.Split(",,", ",")
Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
With xAppointmentItem
.MeetingStatus = olMeeting
For i = 0 To UBound(xRcpArr)
.Recipients.Add (xRcpArr(i))
Next
.Subject = xTaskItem.Subject
.Location = "Office room 1002"
.Start = xTaskItem.StartDate + #2:00:00 PM#
.Body = xTaskItem.Body
.Duration = 120
.ReminderSet = True
.ReminderMinutesBeforeStart = 20
.Save
.Send
End With
xTaskItem.MarkComplete
Set xTaskItem = Nothing
End Sub
Note: W powyższym kodzie: Test spotkania to temat, który utworzyłeś dla spotkania w kroku 1; i powinieneś zmienić informacje o adresy odbiorców, miejsce spotkania, czas rozpoczęcia i czas trwania spotkania do własnego.
5. Zapisz i zamknij kod, a następnie uruchom ponownie program Outlook, aby kod zaczął obowiązywać.
6. Odtąd, gdy przypomnienie o zadaniu pojawi się o określonej godzinie, program Outlook automatycznie wyśle zaproszenie na spotkanie.
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 Pro: Zapisz 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.