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