Przejdź do głównej zawartości

Jak ustawić domyślną datę rozpoczęcia na dziś podczas tworzenia nowego zadania w Outlooku?

Kiedy tworzymy nowe zadanie w Outlooku, zadanie z „Data rozpoczęcia”Jest wyświetlany z "Żaden”Domyślnie, jak pokazano na poniższym zrzucie ekranu. Czasami jednak trzeba często ustawiać dzisiejszy dzień jako datę początkową, więc za każdym razem trzeba ręcznie wybrać datę w polu „Data rozpoczęcia”. Czy istnieje szybki sposób na automatyczne ustawienie domyślnej daty rozpoczęcia jako dzisiejszej podczas tworzenia nowego zadania w programie Outlook?

Ustaw domyślną datę rozpoczęcia na dzisiaj podczas tworzenia nowego zadania z kodem VBA w Outlooku


Ustaw domyślną datę rozpoczęcia na dzisiaj podczas tworzenia nowego zadania z kodem VBA w Outlooku

Być może nie ma innego dobrego sposobu na bezpośrednie rozwiązanie tego zadania w Outlooku, tutaj przedstawię kod VBA, aby go rozwiązać. Wykonaj następujące czynności:

1. Uruchom program Outlook, a następnie przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, 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: Ustaw domyślną datę rozpoczęcia na dzisiaj:

Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xTaskItem As Outlook.TaskItem
Private Sub Application_Startup()
   Set xInspectors = Outlook.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
    If Not (TypeOf Inspector.CurrentItem Is TaskItem) Then Exit Sub
    Set xTaskItem = Inspector.CurrentItem
End Sub
Private Sub xTaskItem_Open(Cancel As Boolean)
If (Len(xTaskItem.Subject) = 0 And Len(xTaskItem.Body) = 0) And (xTaskItem.StartDate = #1/1/4501# And xTaskItem.DueDate = #1/1/4501#) Then
    xTaskItem.StartDate = Now
End If
End Sub

3. Po wstawieniu kodu umieść kursor w drugiej sekcji kodu i naciśnij F5 klucz do uruchomienia tego kodu, zobacz zrzut ekranu:

4. Od tego czasu, gdy za każdym razem tworzysz nowe zadanie, program Outlook automatycznie ustawi datę początkową i końcową na bieżącą datę domyślnie, jak pokazano na poniższym zrzucie ekranu:


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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations