În Outlook, când activați „Recurență” pentru o întâlnire, în mod implicit, aceasta va fi setată fără dată de încheiere. Dacă doriți să o schimbați și să setați o dată implicită de încheiere pentru întâlnirile recurente, puteți utiliza metodele introduse în acest articol.
Când creați o nouă întâlnire și faceți clic pe butonul „Recurență”, în fereastra de dialog pop-up „Recurență întâlnire”, puteți vedea că „Fără dată de încheiere” este selectată implicit, așa cum se arată în figura următoare. Dacă nu vă place acest lucru și doriți să setați o dată de încheiere implicită, cum ar fi 90 de zile de la prima apariție, puteți citi mai departe. Aici vă vom învăța 2 abordări pentru a realiza acest lucru.
Metoda 1: Setați prin schimbarea registrului
- Pentru început, accesați „Meniul Start” și căutați „regedit”.
- Apoi, faceți clic pe programul „regedit” găsit.
- În continuare, se va afișa caseta de dialog „Control cont utilizator”, în care trebuie să faceți clic pe „Da”.
- După ce intrați în fereastra „Editor de registru”, navigați la calea – ” HKEY_CURRENT_USER\Software\Microsoft\Office\ \Outlook\Opțiuni\Calendar”
- Mai târziu, faceți clic dreapta pe „Calendar” și alegeți „Nou” > „Valoare DWORD (32 de biți)”.
- Ulterior, numiți această nouă valoare drept „RecurrencesDefault”.
- Apoi, faceți dublu clic pe valoare.
- În fereastra de dialog pop-up „Editați valoarea DWORD (32 de biți)”, introduceți un număr în câmpul „Date valori”. Se referă la numărul de zile începând de astăzi. De exemplu, dacă este „90”, Outlook va seta data de încheiere a recurenței la 90 de zile începând de astăzi.
- Apoi, faceți clic pe „OK” și ieșiți corect din Editorul Registrului.
- În cele din urmă, reporniți Outlook și încercați să creați o întâlnire recurentă. Data de încheiere a acesteia va fi setată conform valorii „RecurrencesDefault”.
Metoda 2: Setați cu Outlook VBA
- Pentru început, declanșați editorul VBA din Outlook cu „Alt + F11”.
- Apoi, introduceți următorul cod VBA în proiectul „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
- În cele din urmă, faceți clic pe macrocomanda „Application_Startup” și apăsați „F5”.
- În prezent, puteți crea o nouă întâlnire.
- Apoi, faceți clic pe butonul „Recurență”, modificați setările de recurență păstrând „Fără dată de încheiere” și faceți clic pe „OK”.
- Mai târziu, puteți face clic din nou pe „Recurență” pentru a verifica. Veți vedea că data de încheiere a fost modificată conform codului dvs. VBA.
Remediați fișierul PST Outlook inaccesibil
Ați primit vreodată mesaje de eroare care implică „fișier PST inaccesibil” în Outlook? Dacă ai, cum te-ai descurcat cu ei? Poate că Scanpst ți-a trecut prin minte în primul rând. Totuși, când ai încercat remediați Outlook, a eșuat și el. În acest scenariu, ultima soluție este fie un software experimentat de recuperare a datelor DataNumen Outlook Repair sau serviciu specializat de recuperare.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remediere sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com