Programoje „Outlook“, kai įgalinate susitikimo „Pakartojimą“, pagal numatytuosius nustatymus jis bus nustatytas be pabaigos datos. Jei norite jį pakeisti ir nustatyti numatytąją pasikartojančių susitikimų pabaigos datą, galite naudoti šiame straipsnyje aprašytus metodus.
Sukūrę naują susitikimą ir spustelėję mygtuką „Pakartojimas“, iššokančiajame dialogo lange „Paskyrimo pasikartojimas“ pamatysite, kad pagal numatytuosius nustatymus pasirinkta „Nėra pabaigos datos“, kaip parodyta toliau pateiktame paveikslėlyje. Jei jums tai nepatinka ir norite nustatyti numatytąją pabaigos datą, pvz., 90 dienų nuo pirmojo įvykio, galite skaityti toliau. Čia mes išmokysime jus 2 būdų tai įgyvendinti.
1 būdas: nustatoma pakeitus registrą
- Norėdami pradėti, eikite į meniu „Pradėti“ ir paieškos sistemoje įveskite „regedit“.
- Tada spustelėkite rastą „regedit“ programą.
- Tada pasirodys dialogo langas „Vartotojo abonemento valdymas“, kuriame turėsite spustelėti „Taip“.
- Patekę į langą „Registry Editor“, eikite į kelią – „ HKEY_CURRENT_USER\Software\Microsoft\Office\ \Outlook\Parinktys\Kalendorius“
- Vėliau dešiniuoju pelės mygtuku spustelėkite „Kalendorius“ ir pasirinkite „Naujas“ > „DWORD (32 bitų) reikšmė“.
- Vėliau šią naują reikšmę pavadinkite „RecurrencesDefault“.
- Tada dukart spustelėkite vertę.
- Iššokančiajame dialogo lange „Redaguoti DWORD (32 bitų) vertę“ lauke „Vertės duomenys“ įveskite skaičių. Tai reiškia dienų skaičių nuo šiandien. Pavyzdžiui, jei jis yra „90“, „Outlook“ nustatys pasikartojimo pabaigos datą į 90 dienų nuo šiandien.
- Tada spustelėkite „Gerai“ ir tinkamai išeikite iš registro rengyklės.
- Galiausiai paleiskite „Outlook“ iš naujo ir pabandykite sukurti pasikartojantį susitikimą. Jo pabaigos data bus nustatyta pagal „RecurrencesDefault“ reikšmę.
2 būdas: nustatykite naudodami „Outlook VBA“.
- Norėdami pradėti, paleiskite „Outlook VBA“ redaktorių paspausdami „Alt + F11“.
- Tada įdėkite šį VBA kodą į projektą „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
- Galiausiai spustelėkite makrokomandą „Application_Startup“ ir paspauskite „F5“.
- Šiuo metu galite sukurti naują susitikimą.
- Po to spustelėkite mygtuką „Pasikartojimas“, pakeiskite pasikartojimo nustatymus palikdami „Nėra pabaigos datos“ ir spustelėkite „Gerai“.
- Vėliau galite dar kartą spustelėti „Pakartojimas“, kad patikrintumėte. Pamatysite, kad pabaigos data buvo pakeista pagal jūsų VBA kodą.
Pataisykite nepasiekiamą Outlook PST failą
Ar savo „Outlook“ kada nors gavote klaidų pranešimų, susijusių su „nepasiekiamu PST failu“? Jei taip, kaip su jais susidorojote? Galbūt pirmiausia jums atėjo į galvą Scanpstas. Tačiau kai bandėte pataisyti Outlook, irgi nepavyko. Pagal šį scenarijų paskutinė jūsų išeitis yra patyrusi duomenų atkūrimo programinė įranga, pvz., DataNumen Outlook Repair arba specializuota atkūrimo paslauga.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com