Outlook-da görüş üçün “Təkrarlanma” funksiyasını aktivləşdirdiyiniz zaman, defolt olaraq, o, bitmə tarixi olmadan təyin olunacaq. Onu dəyişdirmək və təkrarlanan görüşlər üçün defolt bitmə tarixi təyin etmək istəyirsinizsə, bu məqalədə təqdim olunan üsullardan istifadə edə bilərsiniz.
Yeni görüş yaradıb “Təkrarlanma” düyməsini kliklədikdə, açılan “Təyinatın təkrarlanması” informasiya qutusunda aşağıdakı şəkildə göstərildiyi kimi standart olaraq “Bitmə tarixi yoxdur” seçildiyini görə bilərsiniz. Əgər bunu bəyənmirsinizsə və ilk baş verəndən sonra 90 gün kimi defolt bitmə tarixi təyin etmək istəyirsinizsə, oxuya bilərsiniz. Burada onu həyata keçirmək üçün sizə 2 yanaşma öyrədəcəyik.

Metod 1: Qeydiyyatın dəyişdirilməsi ilə təyin edin
- Başlamaq üçün "Başlat Menyusu"na gedin və "regedit" axtarışını aparın.
- Sonra tapılmış "regedit" proqramını basın.
- Sonra, "İstifadəçi Hesabına Nəzarət" informasiya qutusu görünəcək, orada "Bəli" düyməsini sıxmalısınız.
- "Qeydiyyat redaktoru" pəncərəsinə daxil olduqdan sonra yola gedin - ” HKEY_CURRENT_USER\Software\Microsoft\Office\ \Outlook\Seçimlər\Təqvim”
- Daha sonra, "Təqvim" üzərinə sağ vurun və "Yeni" > "DWORD (32-bit) Dəyəri" seçin.
- Sonra bu yeni dəyəri “RecurrencesDefault” olaraq adlandırın.
- Sonra, dəyəri iki dəfə vurun.
- Açılan "DWORD (32-bit) Dəyərini Redaktə et" informasiya qutusunda "Dəyər məlumatları" sahəsinə nömrə daxil edin. Bu gündən etibarən günlərin sayına aiddir. Məsələn, əgər "90" olarsa, Outlook təkrarlanmanın bitmə tarixini bu gündən 90 günə təyin edəcək.
- Bundan sonra, "OK" düyməsini basın və Registry Redaktorundan düzgün şəkildə çıxın.
- Sonda Outlook-u yenidən başladın və təkrarlanan görüş yaratmağa çalışın. Onun bitmə tarixi “RecurrencesDefault” dəyərinə uyğun olaraq təyin olunacaq.
Metod 2: Outlook VBA ilə qurun
- Başlamaq üçün Outlook VBA redaktorunu "Alt + F11" düymələri ilə işə salın.
- Sonra, aşağıdakı VBA kodunu “ThisOutlookSession” layihəsinə qoyun.
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
- Sonda "Application_Startup" makrosuna klikləyin və "F5" düyməsini basın.
- Hazırda siz yeni görüş yarada bilərsiniz.
- Daha sonra “Təkrarlanma” düyməsini sıxın, “Bitmə tarixi yoxdur” saxlamaqla təkrarlanma parametrlərini dəyişdirin və “OK” düyməsini basın.
- Daha sonra yoxlamaq üçün “Təkrarlanma” üzərinə yenidən klikləyə bilərsiniz. VBA kodunuza uyğun olaraq bitmə tarixinin dəyişdirildiyini görəcəksiniz.
Əlçatmaz Outlook PST Faylını düzəldin
Outlook-da “əlçatmaz PST faylı” ilə bağlı hər hansı bir səhv mesajı almısınızmı? Əgər varsa, onlarla necə davrandınız? Bəlkə Scanpst ilk növbədə ağlınıza gəldi. Ancaq bunu etməyə çalışdığınız zaman Outlook-u düzəldin, o da uğursuz oldu. Bu ssenaridə son çarəniz ya təcrübəli məlumat bərpa proqramıdır DataNumen Outlook Repair və ya ixtisaslaşmış bərpa xidməti.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql düzəliş və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com





