Yinelenen Outlook Randevularının Varsayılan Bitiş Tarihini Ayarlamak İçin 2 Yöntem

Outlook'ta, bir randevu için "Yinelenme"yi etkinleştirdiğinizde, varsayılan olarak bitiş tarihi olmayacak şekilde ayarlanır. Bunu değiştirmek ve yinelenen randevular için varsayılan bir bitiş tarihi belirlemek isterseniz, bu makalede açıklanan yöntemleri kullanabilirsiniz.

Yeni bir randevu oluşturup “Tekrar” butonuna tıkladığınızda açılan “Randevu Tekrar” iletişim kutusunda aşağıdaki şekilde gösterildiği gibi varsayılan olarak “Bitiş tarihi yok” seçili olduğunu görebilirsiniz. Bunu beğenmediyseniz ve ilk olaydan itibaren 90 gün gibi varsayılan bir bitiş tarihi ayarlamak istiyorsanız okumaya devam edebilirsiniz. Burada size bunu gerçekleştirmeniz için 2 yaklaşım öğreteceğiz.

Yöntem 1: Kayıt Defterini Değiştirerek Ayarlayın

1. Öncelikle "Başlat Menüsü"ne gidin ve "regedit" araması yapın.
2. Ardından, bulunan “regedit” programına tıklayın.
3. Ardından, "Evet" i tıklamanız gereken "Kullanıcı Hesabı Denetimi" iletişim kutusu görüntülenecektir.
4. “Kayıt Defteri Düzenleyicisi” penceresine girdikten sonra, yola gidin – ” HKEY_CURRENT_USER\Software\Microsoft\Office\ \Outlook\Seçenekler\Takvim”
5. Daha sonra “Takvim”e sağ tıklayın ve “Yeni” > “DWORD (32-bit) Değeri”ni seçin.
6. Ardından, bu yeni değeri "RecurrensDefault" olarak adlandırın.
7. Ardından, değeri çift tıklayın.
8. Açılan "DWORD (32-bit) Değerini Düzenle" iletişim kutusunda, "Değer verisi" alanına bir sayı girin. Bugünden itibaren gün sayısını ifade eder. Örneğin, "90" ise, Outlook yineleme bitiş tarihini bugünden itibaren 90 gün olarak ayarlar.
9. Daha sonra, "Tamam" ı tıklayın ve Kayıt Defteri Düzenleyicisi'nden düzgün şekilde çıkın.
10. Son olarak, Outlook'unuzu yeniden başlatın ve yinelenen bir randevu oluşturmayı deneyin. Bitiş tarihi, "RecurrencesDefault" değerine göre ayarlanacaktır.

Yöntem 2: Outlook VBA ile ayarlayın

1. Öncelikle, “Alt + F11” tuş kombinasyonunu kullanarak Outlook VBA düzenleyicisini açın.
2. Ardından, aşağıdaki VBA kodunu “ThisOutlookSession” projesine yerleştirin.

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

3. Son olarak, “Application_Startup” makrosuna tıklayın ve “F5” tuşuna basın.
4. Şu anda yeni bir randevu oluşturabilirsiniz.
5. Daha sonra “Yineleme” düğmesine tıklayın, yineleme ayarlarını “Bitiş tarihi yok” olarak değiştirerek değiştirin ve “Tamam” düğmesine tıklayın.
6. Daha sonra, kontrol etmek için "Tekrar" üzerine tekrar tıklayabilirsiniz. VBA kodunuza göre bitiş tarihinin değiştiğini göreceksiniz.

Erişilemeyen Outlook PST Dosyasını Düzeltin

Outlook'unuzda "erişilemeyen PST dosyası" içeren herhangi bir hata mesajı aldınız mı? Varsa, onlarla nasıl başa çıktınız? Belki de Scanpst ilk etapta aklınıza geldi. Ancak bunu denediğinizde Outlook'u düzelt, o da başarısız oldu. Bu senaryoda, son çareniz ya deneyimli bir veri kurtarma yazılımıdır. DataNumen Outlook Repair veya özel kurtarma servisi.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql düzeltmesi ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com