Przejdź do głównej zawartości

Jak zmienić domyślne wydarzenie całodniowe na zajęte w Outlooku?

Domyślnie program Outlook ustawia status terminów i spotkań na "Zajęty", ale całodniowe wydarzenia to "Darmowy" (patrz zrzut ekranu poniżej). Za każdym razem, gdy tworzysz wydarzenie całodniowe, musisz ręcznie zmienić stan Pokaż jako na Zajęty. Aby zmienić domyślne wyświetlanie jako stan wydarzeń całodniowych na Zajęty, w artykule przedstawiono dwie metody.


Zmień domyślne wydarzenie całodniowe na zajęte, tworząc niestandardowy formularz

Niestandardowy formularz może pomóc w stworzeniu całodniowego wydarzenia z domyślnym Pokaż jako status Zajęty. Proszę wykonać następujące czynności.

1. Przejdź do widoku kalendarza. Kliknij Strona główna > Nowe spotkanie.

2. W nowym oknie Spotkanie kliknij Deweloper > Zaprojektuj ten formularz.

Porady: Jeśli Deweloper karta nie wyświetla się na wstążce, postępuj zgodnie z metodami w tym artykule aby go wyświetlić.

3. Następnie okno spotkań przechodzi w tryb projektowania. Musisz kliknąć (Str.2) patka.

4. Przeciągnij plik Wydarzenie całodniowe pole i Pokaż czas jako pole z Wybór pola szyba oddzielnie do tablicy pod (Str.2) Zakładka

5. Kliknij prawym przyciskiem myszy przeciągnięty Wydarzenie całodniowe pole i wybierz Właściwości z menu kontekstowego.

6. w Właściwości W oknie dialogowym należy skonfigurować w następujący sposób.

6.1) Przejdź do wartość patka;
6.2) W Wartość początkowa sekcja, sprawdź Ustaw początkową wartość tego pola na pudełko;
6.3) Wprowadź wartość "Prawdziwe" do pola tekstowego;
6.4) Kliknij OK przycisk. Zobacz zrzut ekranu:

7. Kliknij prawym przyciskiem myszy pole kombi Pokaż czas jako pole i kliknij Właściwości z menu kontekstowego.

8. w Właściwości W oknie dialogowym należy skonfigurować w następujący sposób.

8.1) Przejdź do wartość patka;
8.2) W Wartość początkowa sekcja, sprawdź Ustaw początkową wartość tego pola na pudełko;
8.3) Wprowadź liczbę „2” w polu tekstowym;
8.4) Kliknij OK przycisk. Zobacz zrzut ekranu:

9. kliknij Publikować > Opublikuj formularz jako na wstążce.

10. w Opublikuj formularz jako w oknie dialogowym, musisz:

10.1) Wybierz folder docelowy dla niestandardowego formularza w Zaglądać Lista rozwijana. Tutaj wybieram Biblioteka osobistych formularzy przedmiot;
10.2) Nazwij formularz niestandardowy w Wyświetlana nazwa pole tekstowe;
10.3) Kliknij Publikować przycisk. Zobacz zrzut ekranu:

11. Zamknij okno Spotkanie bez zapisywania.

12. Od teraz, jeśli chcesz utworzyć wydarzenie całodniowe z domyślnym statusem Pokaż na Zajęty, przejdź do Kalendarz zobacz i kliknij Strona główna > Nowe pozycje > Formularze niestandardowe > „Nazwa niestandardowego formularza”.

Uwaga: Aby utworzyć wydarzenie całodniowe ze statusem Pokaż jako domyślnym „Wolne”, po prostu zrób jak zwykle: kliknij Strona główna > Nowe spotkanie, a następnie sprawdź Wydarzenie całodniowe Okno w Powołanie okno.


Zmień domyślne wydarzenie całodniowe na zajęte za pomocą VBA

Powyższa metoda ma zbyt wiele kroków. Jeśli zawsze musisz utworzyć wydarzenie całodniowe z domyślnym statusem Pokaż jako „Zajęty”, poniższy kod VBA może pomóc w łatwym wykonaniu.

1. Uruchom program Outlook, naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij dwukrotnie Project1 > Obiekty programu Microsoft Outlook > Ta sesja programu Outlook otworzyć Ta sesja programu Outlook (Kod) okno, a następnie skopiuj następujący kod do tego okna kodu.

Kod VBA: Ustaw domyślny status wydarzenia całodniowego na „Zajęty”

Public WithEvents GInspectors As Inspectors
Public WithEvents GAppointmentItem As AppointmentItem

Private Sub Application_Startup()
'Updated by Extendoffice 20220413
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Select Case Inspector.CurrentItem.Class
    Case olAppointment
      Set GAppointmentItem = Inspector.CurrentItem
  End Select
End Sub

Private Sub GAppointmentItem_Open(Cancel As Boolean)
  Select Case GAppointmentItem.AllDayEvent
    Case True
      GAppointmentItem.BusyStatus = olBusy
  End Select
End Sub

Private Sub GAppointmentItem_PropertyChange(ByVal Name As String)
  If Name = "AllDayEvent" Then
    Select Case GAppointmentItem.AllDayEvent
      Case True
        GAppointmentItem.BusyStatus = olBusy
    End Select
  End If
End Sub

3. Zapisz kod VBA i uruchom ponownie Outlooka.

Od teraz, po przekształceniu terminu lub spotkania w wydarzenie całodniowe, Pokaż jako status będzie wyświetlany jako "Zajęty" domyślnie.


Powiązane artykuły

Zmień domyślny czas przypomnienia o wydarzeniach całodniowych w Outlooku
Zwykle domyślny czas przypomnienia o wydarzeniu całodniowym to 18 godzin w programie Outlook 2007/2010 i 0.5 dnia w programie Outlook 2013. Czasami domyślny czas przypomnienia o wydarzeniu całodniowym może nie zgadzać się z harmonogramem pracy. Tutaj przedstawimy sposób zmiany domyślnego czasu przypomnienia o wydarzeniach całodniowych w programie Microsoft Outlook.

Zmień domyślny czas śledzenia w programie Outlook
Jak wiemy, kiedy dodajemy przypomnienie o wiadomości e-mail w programie Outlook, domyślny czas działań następczych to 4:30 (lub inny czas w zależności od godzin pracy). Możesz jednak zmienić domyślny czas obserwacji i pozwolić mu przypominać na początku godzin pracy, na przykład o 9:00. W tym artykule pokażę, jak zmienić domyślny czas obserwacji w Outlooku.

Zmień domyślną lokalizację archiwum w programie Outlook
Domyślnie Outlook ma domyślną lokalizację plików archiwum. Oprócz domyślnej lokalizacji możesz ustawić własną lokalizację archiwum dla plików archiwum. W tym samouczku pokażemy, jak szczegółowo zmienić domyślną lokalizację archiwum w Outlooku.

Zmień domyślną lokalizację zapisywania załączników w programie Outlook
Czy masz dość szukania lokalizacji załącznika, którą podałeś za każdym razem, gdy uruchamiasz Outlooka? W tym samouczku pokażemy, jak zmienić domyślną lokalizację załącznika. Następnie określony folder zapisywania załączników będzie otwierany automatycznie za każdym razem, gdy zapiszesz załączniki, nawet po ponownym uruchomieniu Outlooka.

Zmień domyślny czas opóźnienia dostarczania w programie Outlook
Ten samouczek zawiera kod VBA, który pomoże Ci zmienić domyślny czas opcji opóźnienia dostarczania w programie Outlook.


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
Ahoj,
ani mě to nefunguje. Nevyskočila ani žádná zpráva.
Office Microsoft 365 apps pro velké organizace.

Můžu to nějak trasovat nebo najít někde v logu?

Dík Honza
This comment was minimized by the moderator on the site
Hi,
I've tried the second technique but it did not work. Do you know whether this still works on the newest Outlook version ?
Best,
Ben
This comment was minimized by the moderator on the site
Hi Benjamin Djian,
Yes the code still works on the newest Outlook version? Did you get any error prompt?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations