2 metody nastavení výchozího koncového data opakujících se schůzek aplikace Outlook

Když v aplikaci Outlook povolíte „Opakování“ schůzky, bude ve výchozím nastavení nastavena bez data ukončení. Pokud jej chcete změnit a nastavit výchozí datum ukončení opakovaných schůzek, můžete použít metody uvedené v tomto článku.

Když vytvoříte novou schůzku a kliknete na tlačítko „Opakování“, ve vyskakovacím dialogovém okně „Opakování schůzky“ uvidíte, že je ve výchozím nastavení vybráno „Žádné datum ukončení“, jak je znázorněno na následujícím obrázku. Pokud se vám to nelíbí a chcete nastavit výchozí datum ukončení, například 90 dní od prvního výskytu, můžete číst dál. Zde vás naučíme 2 přístupy k jeho realizaci.

Metoda 1: Nastaveno změnou registru

1. Nejprve přejděte do nabídky „Start“ a vyhledejte „regedit“.
2. Poté klikněte na nalezený program „regedit“.
3. Dále se zobrazí dialogové okno „Řízení uživatelských účtů“, ve kterém musíte kliknout na „Ano“.
4. Po vstupu do okna „Editor registru“ přejděte na cestu - „HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ \ Outlook \ Možnosti \ Kalendář ”
5. Později klikněte pravým tlačítkem na „Kalendář“ a vyberte „Nový“> „Hodnota DWORD (32bitová)“.
6. Následně pojmenujte tuto novou hodnotu jako „RecurrencesDefault“.
7. Dále poklepejte na hodnotu.
8. V rozbalovacím dialogovém okně „Upravit hodnotu DWORD (32bitová)“ zadejte číslo do pole „Údaj hodnoty“. Odkazuje na počet dní ode dneška. Například pokud je „90“, Outlook nastaví datum ukončení opakování na 90 dní ode dneška.
9. Poté klikněte na „OK“ a editor registru správně ukončete.
10. Nakonec restartujte Outlook a zkuste vytvořit opakovanou schůzku. Její datum ukončení bude nastaveno podle hodnoty „RecurrencesDefault“.

Metoda 2: Nastavit pomocí aplikace Outlook VBA

1. Pro začátek spusťte editor VBA v Outlooku stisknutím kláves „Alt + F11“.
2. Poté vložte následující kód VBA do projektu „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

3. Nakonec klikněte na makro „Application_Startup“ a stiskněte klávesu „F5“.
4. V současné době můžete vytvořit novou schůzku.
5. Poté klikněte na tlačítko „Opakování“, upravte nastavení opakování se zachováním „Žádné datum ukončení“ a klikněte na „OK“.
6. Později můžete znovu kliknout na „Opakování“ a zkontrolovat. Uvidíte, že datum ukončení bylo změněno podle vašeho kódu VBA.

Opravte nepřístupný soubor PST aplikace Outlook

Obdrželi jste někdy ve svém Outlooku chybové zprávy týkající se „nepřístupného souboru PST“? Pokud máte, jak jste s nimi zacházeli? Možná vám na mysli napadlo Scanpst. Když jste to však zkusili opravit Outlook, také selhalo. V tomto scénáři je vaše poslední možnost buď zkušený software pro obnovu dat DataNumen Outlook Repair nebo specializovaná služba pro obnovení.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně oprava sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com