Zmiana daty rozpoczęcia zadania w programie Outlook domyślnie spowoduje automatyczną zmianę daty jego wykonania. Jeśli Ci się to nie podoba, możesz skorzystać z jednego z dwóch podejść opisanych w tym artykule.
Być może zauważyłeś, że data wykonania zadania w programie Outlook zmienia się wraz z datą rozpoczęcia. Mówiąc dokładniej, po zmianie daty rozpoczęcia zadania, jego data wykonania również ulegnie zmianie. Niemniej jednak wielu użytkowników chciałoby, aby data wykonania zadania pozostała niezmieniona, nawet jeśli data rozpoczęcia ulegnie zmianie. Dlatego przedstawimy tutaj dwa sposoby.
Metoda 1: Użyj klawisza „Shift”
- Przede wszystkim uruchom aplikację Outlook w zwykły sposób.
- Następnie przejdź do obszaru „Zadania”.
- Następnie wybierz i otwórz zadanie, klikając je dwukrotnie.
- Następnie w kolejnym oknie Zadania należy kliknąć strzałkę w dół w polu „Termin”.
- W oknie „Wybór daty” przytrzymaj klawisz „Shift” i kliknij datę, której chcesz użyć jako nowej daty rozpoczęcia.
- Po wybraniu daty w powyższy sposób, zobaczysz, że pole „Data rozpoczęcia” zostało zmienione na nową datę.
- Ostatecznie możesz zapisać to zadanie, naciskając przycisk „Zapisz i zamknij”.
W ten sposób za każdym razem, gdy chcesz zachować datę końcową podczas zmiany daty początkowej, musisz nacisnąć klawisz „Shift”. Może to być nieco żmudne. Dlatego pokażemy Ci jeszcze jeden, bardziej efektywny sposób.
Metoda 2: Zastosuj Outlook VBA
- Aby rozpocząć, na ekranie głównym programu Outlook naciśnij kombinację klawiszy „Alt + F11”.
- W kolejnym oknie „Microsoft Visual Basic for Applications” można znaleźć i otworzyć projekt „ThisOutlookSession”.
- Następnie należy skopiować następujący kod VBA do tego projektu.
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objTask As Outlook.TaskItem
Public dStartdate, dDueDate As Date
Private Sub Application_Startup()
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olTask Then
Set objTask = Inspector.CurrentItem
dStartdate = objTask.StartDate
dDueDate = objTask.DueDate
End If
End Sub
Private Sub objTask_PropertyChange(ByVal Name As String)
If Name = "StartDate" Then
If objTask.StartDate <> dStartdate And objTask.StartDate <= dDueDate And objTask.StartDate <> #1/1/4501# Then
objTask.DueDate = dDueDate
objTask.Save
End If
End If
End Sub
- Później powinieneś podpisać cyfrowo ten kod.
- Następnie należy zmienić ustawienia makr programu Outlook, aby włączyć podpisane projekty VBA.
- Następnie możesz ponownie uruchomić program Outlook, aby aktywować nowe makro.
- Od tej pory za każdym razem, gdy zmienisz datę rozpoczęcia zadania, data jego wykonania nie ulegnie zmianie.
Ratuj zagrożone pliki PST
Jak wszyscy wiemy, Outlook jest podatny na korupcję. Na szczęście Outlook jest wyposażony we wbudowane narzędzie do naprawy - skanpst. Jednak, szczerze mówiąc, w wielu przypadkach nie może przynieść efektów. W związku z tym dobra jakość i doświadczone narzędzie naprawcze innej firmy jest kwestią konieczności, takie jak DataNumen Outlook Repair
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com