2 metódy na nastavenie predvoleného dátumu ukončenia opakovaných stretnutí programu Outlook

Keď v Outlooku povolíte pre schôdzku opakovanie, predvolene sa nastaví bez dátumu ukončenia. Ak to chcete zmeniť a nastaviť predvolený konečný dátum pre opakujúce sa schôdzky, môžete použiť metódy uvedené v tomto článku.

Keď vytvoríte novú schôdzku a kliknete na tlačidlo „Opakovanie“, v rozbaľovacom dialógovom okne „Opakovanie schôdzky“ môžete vidieť, že predvolene je vybratá možnosť „Žiadny dátum ukončenia“, ako je to znázornené na nasledujúcom obrázku. Ak sa vám to nepáči a chcete si nastaviť predvolený dátum ukončenia, napríklad 90 dní od prvého výskytu, môžete čítať ďalej. Tu vás naučíme 2 prístupy, ako si to uvedomiť.

Metóda 1: Nastavené zmenou registra

1. Najprv prejdite do ponuky „Štart“ a vyhľadajte „regedit“.
2. Potom kliknite na nájdený program „regedit“.
3. Ďalej sa zobrazí dialógové okno „Kontrola používateľských účtov“, v ktorom musíte kliknúť na „Áno“.
4. Po otvorení okna „Editor databázy Registry“ prejdite na cestu - „HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ \ Outlook \ Možnosti \ Kalendár ”
5. Neskôr kliknite pravým tlačidlom myši na „Kalendár“ a zvoľte „Nové“> „Hodnota DWORD (32-bitová)“.
6. Následne pomenujte túto novú hodnotu ako „RecurrencesDefault“.
7. Ďalej dvakrát kliknite na hodnotu.
8. V rozbaľovacom dialógovom okne „Upraviť hodnotu DWORD (32-bitová)“ zadajte číslo do poľa „Údaje o hodnote“. Vzťahuje sa na počet dní odo dneška. Napríklad ak je „90“, Outlook nastaví dátum ukončenia opakovania na 90 dní od dnešného dňa.
9. Potom kliknite na „OK“ a ukončite program Editor databázy Registry správne.
10. Nakoniec reštartujte Outlook a skúste vytvoriť opakujúcu sa schôdzku. Jej dátum ukončenia bude nastavený podľa hodnoty „RecurrencesDefault“.

Metóda 2: Nastaviť pomocou Outlooku VBA

1. Pre začiatok spustite editor VBA v programe Outlook pomocou klávesov „Alt + F11“.
2. Potom vložte nasledujúci 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. Nakoniec kliknite na makro „Application_Startup“ a stlačte kláves „F5“.
4. V súčasnosti môžete vytvoriť novú schôdzku.
5. Potom kliknite na tlačidlo „Opakovanie“, upravte nastavenia opakovania so zachovaním „Žiadny dátum ukončenia“ a kliknite na „OK“.
6. Neskôr to môžete skontrolovať kliknutím na „Opakovanie“. Uvidíte, že dátum ukončenia bol zmenený podľa vášho kódu VBA.

Opravte neprístupný súbor PST programu Outlook

Dostali ste niekedy vo svojom Outlooku chybové správy týkajúce sa „neprístupného súboru PST“? Ak máte, ako ste sa s nimi vyrovnali? Možno vám na prvom mieste napadol Scanpst. Keď ste to však skúsili opraviť Outlook, tiež zlyhalo. V tomto scenári je vašou poslednou možnosťou skúsený softvér na obnovu dát DataNumen Outlook Repair alebo špecializovaná služba obnovy.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S