2 Metode untuk Mengatur Tanggal Akhir Default Janji Temu Berulang di Outlook

Di Outlook, saat Anda mengaktifkan "Perulangan" untuk janji, secara default, itu akan diatur tanpa tanggal akhir. Jika Anda ingin mengubahnya dan menetapkan tanggal akhir default untuk janji temu berulang, Anda dapat menggunakan metode yang diperkenalkan di artikel ini.

Ketika Anda membuat janji baru dan mengklik tombol "Perulangan", di kotak dialog "Pengulangan Janji" yang muncul, Anda dapat melihat bahwa "Tanpa tanggal akhir" dipilih secara default, seperti yang ditunjukkan pada gambar berikut. Jika Anda tidak menyukai ini dan ingin menyetel tanggal akhir default, seperti 90 hari sejak kejadian pertama, Anda dapat terus membaca. Di sini kami akan mengajari Anda 2 pendekatan untuk mewujudkannya.

Metode 1: Setel dengan Mengubah Registri

1. Pertama-tama, buka “Menu Mulai” dan cari “regedit”.
2. Kemudian, klik pada program "regedit" yang ditemukan.
3. Selanjutnya, kotak dialog "Kontrol Akun Pengguna" akan muncul, di mana Anda perlu mengklik "Ya".
4. Setelah masuk ke jendela "Registry Editor", arahkan ke jalur - "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ \ Outlook \ Options \ Calendar ”
5. Nanti, klik kanan “Calendar” dan pilih “New”> “DWORD (32-bit) Value”.
6. Selanjutnya, beri nama nilai baru ini sebagai “RecurrencesDefault”.
7. Selanjutnya, klik dua kali nilainya.
8. Di kotak dialog "Edit DWORD (32-bit) Value" popup, masukkan angka di kolom "Value data". Ini mengacu pada hitungan hari dari hari ini. Misalnya, jika "90", Outlook akan menyetel tanggal akhir perulangan menjadi 90 hari dari hari ini.
9. Setelah itu, klik "OK" dan keluar dari Editor Registri dengan benar.
10. Terakhir, mulai ulang Outlook Anda dan coba buat janji temu berulang. Tanggal berakhirnya akan diatur sesuai dengan nilai “RecurrencesDefault”.

Metode 2: Setel dengan Outlook VBA

1. Sebagai langkah awal, aktifkan editor VBA Outlook dengan menekan “Alt + F11”.
2. Kemudian, masukkan kode VBA berikut ke dalam proyek "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

3. Terakhir, klik makro “Application_Startup” dan tekan “F5”.
4. Saat ini, Anda dapat membuat janji baru.
5. Setelah itu, klik tombol “Recurrence”, ubah pengaturan pengulangan dengan tetap “No end date”, dan klik “OK”.
6. Nanti, Anda dapat mengklik kembali "Perulangan" untuk memeriksa. Anda akan melihat bahwa tanggal akhir telah diubah sesuai kode VBA Anda.

Perbaiki File PST Outlook yang Tidak Dapat Diakses

Pernahkah Anda menerima pesan kesalahan yang melibatkan "file PST tidak dapat diakses" di Outlook Anda? Jika sudah, bagaimana Anda menghadapinya? Mungkin Scanpst terlintas di benak Anda sejak awal. Namun ketika Anda mencobanya perbaiki Outlook, itu gagal juga. Dalam skenario ini, pilihan terakhir Anda adalah perangkat lunak pemulihan data berpengalaman seperti DataNumen Outlook Repair atau layanan pemulihan khusus.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com