2 metoder for å angi standard sluttdato for gjentakende Outlook-avtaler

I Outlook, når du aktiverer "Recurrence" for en avtale, vil den som standard bli satt uten sluttdato. Hvis du ønsker å endre den og angi en standard sluttdato for tilbakevendende avtaler, kan du bruke metodene som er introdusert i denne artikkelen.

Når du oppretter en ny avtale og klikker på "Gjentakelse"-knappen, i popup-dialogboksen "Avtalegjentakelse", kan du se at "Ingen sluttdato" er valgt som standard, som vist i følgende figur. Hvis du misliker dette og ønsker å angi en standard sluttdato, for eksempel 90 dager fra den første forekomsten, kan du lese videre. Her vil vi lære deg 2 tilnærminger for å realisere det.

Metode 1: Angi ved å endre register

1. For å begynne, gå til "Start-menyen" og søk etter "regedit".
2. Klikk deretter på "regedit"-programmet som ble funnet.
3. Deretter vises dialogboksen "Brukerkontokontroll", der du må klikke på "Ja".
4. Etter å ha kommet inn i "Registerredigering"-vinduet, naviger til banen - "HKEY_CURRENT_USER\Software\Microsoft\Office\ \Outlook\Options\Calendar"
5. Senere høyreklikker du på "Kalender" og velger "Ny" > "DWORD (32-bit) verdi".
6. Navngi deretter denne nye verdien som "RecurrencesDefault".
7. Deretter dobbeltklikker du på verdien.
8. I popup-dialogboksen "Rediger DWORD (32-biters) verdi" skriver du inn et tall i feltet "Verdidata". Det viser til antall dager fra i dag. For eksempel, hvis det er "90", vil Outlook sette sluttdatoen for gjentakelse til 90 dager fra i dag.
9. Etterpå klikker du "OK" og avslutter Registerredigering på riktig måte.
10. Til slutt, start Outlook på nytt og prøv å opprette en regelmessig avtale. Sluttdatoen vil bli satt i henhold til verdien «RecurrencesDefault».

Metode 2: Sett med Outlook VBA

1. For å starte, start Outlook VBA-editoren med «Alt + F11».
2. Deretter legger du følgende VBA-kode inn i "ThisOutlookSession" -prosjektet.

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. Til slutt, klikk på makroen «Application_Startup» og trykk «F5».
4. For øyeblikket kan du opprette en ny avtale.
5. Etterpå klikker du på "Recurrence"-knappen, endrer gjentakelsesinnstillingene med å beholde "Ingen sluttdato", og klikker på "OK".
6. Senere kan du klikke på "Recurrence" på nytt for å sjekke. Du vil se at sluttdatoen er endret i henhold til VBA-koden din.

Reparer utilgjengelig Outlook PST-fil

Har du noen gang mottatt noen feilmeldinger som involverer "utilgjengelig PST-fil" i Outlook? Hvis du har, hvordan taklet du dem? Kanskje Scanpst dukket opp i tankene dine i utgangspunktet. Men når du prøvde det fikse Outlook, det mislyktes også. I dette scenariet er siste utvei enten erfaren datagjenopprettingsprogramvare som DataNumen Outlook Repair eller spesialisert gjenopprettingstjeneste.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql fikse og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med