Note: The other languages of the website are Google-translated. Back to English

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.

doc opóźnienie wysłania spotkania 1

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("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
    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

doc opóźnienie wysłania spotkania 2

Uwagi: 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.


Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Outlook i znacznie ułatwia pracę!

  • Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
  • Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
  • Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
  • Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
  • Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.
strzał Kutools Outlook Kutools tab 1180x121
shot Kutools Outlook Kutools Plus Tab 1180x121
 
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL