Kun otat toistamisen käyttöön Outlookissa Outlookissa, oletuksena se asetetaan ilman lopetuspäivää. Jos haluat muuttaa sitä ja asettaa oletusarvoisen lopetuspäivän toistuville tapaamisille, voit käyttää tässä artikkelissa esitettyjä menetelmiä.
Kun luot uuden tapaamisen ja napsautat ”Toistuminen” -painiketta, ponnahdusikkunassa ”Tapaamisen toistuminen” -valintaikkunassa näet, että oletusarvona on valittu ”Ei lopetuspäivää”, kuten seuraavassa kuvassa näkyy. Jos et pidä tästä ja haluat asettaa oletus lopetuspäivän, kuten 90 päivää ensimmäisestä tapahtumasta, voit lukea. Täällä opetamme sinulle kaksi lähestymistapaa sen toteuttamiseksi.

Tapa 1: Aseta muuttamalla rekisteriä
- Aloita menemällä "Käynnistä-valikkoon" ja etsimällä "regedit".
- Napsauta sitten löydettyä “regedit” -ohjelmaa.
- Seuraavaksi näyttöön tulee "Käyttäjätilien valvonta" -valintaikkuna, jossa sinun on napsautettava "Kyllä".
- Kun olet päässyt "Rekisterieditori" -ikkunaan, siirry polulle - "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ \ Outlook \ Asetukset \ Kalenteri "
- Napsauta myöhemmin hiiren kakkospainikkeella "Kalenteri" ja valitse "Uusi"> "DWORD (32-bittinen) arvo".
- Nimeä tämän jälkeen uusi arvo nimellä "RecurrencesDefault".
- Kaksoisnapsauta seuraavaksi arvoa.
- Kirjoita ponnahdusikkunassa Muokkaa DWORD-arvoa (32-bittinen) -valintaikkunassa luku Arvot-kenttään. Se viittaa päivien lukumäärään tästä päivästä. Esimerkiksi, jos se on 90, Outlook asettaa toistumisen lopetuspäiväksi 90 päivää tästä päivästä.
- Napsauta sen jälkeen "OK" ja poistu rekisterieditorista oikein.
- Käynnistä lopuksi Outlook uudelleen ja yritä luoda toistuva tapaaminen. Sen päättymispäivä asetetaan "RecurrencesDefault"-arvon mukaisesti.
Tapa 2: Aseta Outlook VBA: lla
- Aloita käynnistämällä Outlook VBA -editori painamalla Alt + F11.
- Laita sitten seuraava VBA-koodi “ThisOutlookSession” -projektiin.
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
- Lopuksi napsauta "Application_Startup"-makroa ja paina "F5".
- Tällä hetkellä voit luoda uuden tapaamisen.
- Napsauta sen jälkeen ”Toistuvuus” -painiketta, muokkaa toistumisasetuksia pitämällä ”Ei lopetuspäivää” ja napsauta ”OK”.
- Myöhemmin voit tarkistaa uudelleen napsauttamalla ”Toistuminen”. Näet, että lopetuspäivää on muutettu VBA-koodisi mukaan.
Korjaa estämätön Outlook PST-tiedosto
Oletko koskaan saanut virheilmoituksia, joihin liittyy "esteetön PST-tiedosto" Outlookissa? Jos sinulla on, miten käsittelet heitä? Ehkä Scanpst tuli mieleesi ensinnäkin. Kuitenkin, kun yritit sitä korjaa Outlook, se epäonnistui myös. Tässä skenaariossa viimeinen keino on joko kokenut tietojen palautusohjelmisto, kuten DataNumen Outlook Repair tai erikoistunut palautuspalvelu.
Tekijän esittely:
Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com





