Programmā Outlook pēc noklusējuma iespējojot “Atkārtotību”, tā tiks iestatīta bez beigu datuma. Ja vēlaties to mainīt un iestatīt noklusējuma beigu datumu atkārtotām tikšanām, varat izmantot šajā rakstā ieviestās metodes.
Izveidojot jaunu tikšanos un noklikšķinot uz pogas “Atkārtošanās”, uznirstošajā dialoglodziņā “Tikšanās atkārtošanās” jūs varat redzēt, ka pēc noklusējuma ir atlasīts “Nav beigu datuma”, kā parādīts nākamajā attēlā. Ja tas jums nepatīk un vēlaties iestatīt noklusējuma beigu datumu, piemēram, 90 dienas pēc pirmās parādīšanās, varat turpināt. Šeit mēs iemācīsim jums 2 pieejas, lai to realizētu.

1. metode: iestatiet, mainot reģistru
- Lai sāktu, dodieties uz izvēlni “Sākt” un meklējiet tajā “regedit”.
- Pēc tam noklikšķiniet uz atrastās “regedit” programmas.
- Pēc tam tiks parādīts dialoglodziņš “Lietotāja konta kontrole”, kurā jums jānoklikšķina uz “Jā”.
- Pēc nokļūšanas logā “Reģistra redaktors” dodieties uz ceļu - HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ \ Outlook \ Options \ Calendar "
- Vēlāk ar peles labo pogu noklikšķiniet uz “Kalendārs” un izvēlieties “Jauns”> “DWORD (32 bitu) vērtība”.
- Pēc tam nosauciet šo jauno vērtību kā “RecurrencesDefault”.
- Pēc tam veiciet dubultklikšķi uz vērtības.
- Uznirstošajā dialoglodziņā Rediģēt DWORD (32 bitu) vērtību ievadiet numuru laukā “Vērtības dati”. Tas attiecas uz dienu skaitu no šodienas. Piemēram, ja tas ir “90”, programma Outlook noteiks atkārtošanās beigu datumu uz 90 dienām no šodienas.
- Pēc tam noklikšķiniet uz “OK” un pareizi izejiet no reģistra redaktora.
- Visbeidzot, restartējiet programmu Outlook un mēģiniet izveidot atkārtotu tikšanos. Tās beigu datums tiks iestatīts atbilstoši vērtībai “RecurrencesDefault”.
2. metode: iestatiet ar Outlook VBA
- Lai sāktu, aktivizējiet Outlook VBA redaktoru, nospiežot taustiņu kombināciju “Alt + F11”.
- Pēc tam projektā “ThisOutlookSession” ievietojiet šādu VBA kodu.
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
- Visbeidzot, noklikšķiniet uz makro “Application_Startup” un nospiediet taustiņu “F5”.
- Pašlaik jūs varat izveidot jaunu tikšanos.
- Pēc tam noklikšķiniet uz pogas “Atkārtošanās”, mainiet atkārtošanās iestatījumus, turot “Nav beigu datuma”, un noklikšķiniet uz “Labi”.
- Vēlāk varat vēlreiz noklikšķināt uz “Recurrence”, lai pārbaudītu. Jūs redzēsiet, ka beigu datums ir mainīts atbilstoši jūsu VBA kodam.
Labot nepieejamu Outlook PST failu
Vai esat kādreiz saņēmis kļūdas ziņojumus par “nepieejamu PST failu” jūsu programmā Outlook? Ja jums ir, kā jūs ar viņiem tikāt galā? Varbūt Scanpst vispār ienāca prātā. Tomēr, kad jūs to izmēģinājāt labot Outlook, tas arī neizdevās. Šajā scenārijā jūsu pēdējā iespēja ir vai nu pieredzējusi datu atkopšanas programmatūra, piemēram, DataNumen Outlook Repair vai specializēts atkopšanas dienests.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar





