W Outlooku, gdy włączysz opcję „Cykl” dla spotkania, domyślnie zostanie ono ustawione bez daty zakończenia. Jeśli chcesz to zmienić i ustawić domyślną datę zakończenia dla spotkań cyklicznych, możesz skorzystać z metod przedstawionych w tym artykule.
Po utworzeniu nowego spotkania i kliknięciu przycisku „Cykl” w wyskakującym oknie dialogowym „Powtarzanie spotkania” można zobaczyć, że domyślnie wybrana jest opcja „Brak daty końcowej”, jak pokazano na poniższym rysunku. Jeśli Ci się to nie podoba i chcesz ustawić domyślną datę zakończenia, na przykład 90 dni od pierwszego wystąpienia, możesz czytać dalej. Tutaj nauczymy Cię 2 podejść do realizacji tego.
Metoda 1: Ustaw przez zmianę rejestru
- Na początek przejdź do „Menu Start” i wyszukaj „regedit”.
- Następnie kliknij znaleziony program „regedit”.
- Następnie pojawi się okno dialogowe „Kontrola konta użytkownika”, w którym należy kliknąć „Tak”.
- Po wejściu do okna „Edytor rejestru” przejdź do ścieżki - „HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ \ Outlook \ Options \ Calendar ”
- Później kliknij prawym przyciskiem myszy „Kalendarz” i wybierz „Nowy”> „Wartość DWORD (32-bitowa)”.
- Następnie nazwij tę nową wartość „RecurrencesDefault”.
- Następnie kliknij dwukrotnie wartość.
- W wyskakującym oknie dialogowym „Edytuj wartość DWORD (32-bitowa)” wprowadź liczbę w polu „Dane wartości”. Odnosi się do liczby dni od dzisiaj. Na przykład, jeśli jest to „90”, program Outlook ustawi datę końcową powtarzania na 90 dni od dzisiaj.
- Następnie kliknij „OK” i prawidłowo zamknij Edytor rejestru.
- Na koniec uruchom ponownie Outlooka i spróbuj utworzyć spotkanie cykliczne. Data zakończenia zostanie ustawiona zgodnie z wartością „RecurrencesDefault”.
Metoda 2: Ustaw za pomocą programu Outlook VBA
- Na początek uruchom edytor VBA w programie Outlook za pomocą kombinacji klawiszy „Alt + F11”.
- Następnie umieść następujący kod VBA w projekcie „ThisOutlookSession”.
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objAppointment As Outlook.AppointmentItem
Private Sub Application_Startup()
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is AppointmentItem Then
Set objAppointment = Inspector.CurrentItem
End If
End Sub
Private Sub objAppointment_PropertyChange(ByVal Name As String)
Dim objRecurrencePattern As Outlook.RecurrencePattern
'Change enable "Recurrence"
If Name = "IsRecurring" Then
If objAppointment.IsRecurring = True Then
Set objRecurrencePattern = objAppointment.GetRecurrencePattern
'Change the end date to 30 days from the start date
'Alter "30" as per your needs
objRecurrencePattern.PatternEndDate = objRecurrencePattern.PatternStartDate + 30
End If
End If
End Sub
- Na koniec kliknij makro „Application_Startup” i naciśnij „F5”.
- Obecnie możesz utworzyć nowe spotkanie.
- Następnie kliknij przycisk „Powtarzanie”, zmodyfikuj ustawienia powtarzania, zachowując „Brak daty końcowej” i kliknij „OK”.
- Później możesz ponownie kliknąć „Powtarzanie”, aby sprawdzić. Zobaczysz, że data zakończenia została zmieniona zgodnie z kodem VBA.
Napraw niedostępny plik PST programu Outlook
Czy kiedykolwiek otrzymałeś jakieś komunikaty o błędach dotyczące „niedostępnego pliku PST” w Twoim Outlooku? Jeśli tak, jak sobie z nimi radziłeś? Może w pierwszej kolejności przyszedł ci do głowy Scanpst. Jednak kiedy próbowałeś naprawić Outlooka, to też się nie udało. W tym scenariuszu ostatnią deską ratunku jest doświadczone oprogramowanie do odzyskiwania danych, takie jak DataNumen Outlook Repair lub wyspecjalizowana usługa odzyskiwania.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym poprawka sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com