Di Outlook, apabila anda mengaktifkan "Berulang" untuk janji temu, secara lalai, ia akan ditetapkan tanpa tarikh akhir. Sekiranya anda ingin mengubahnya dan menetapkan tarikh akhir lalai untuk janji temu berulang, anda boleh menggunakan kaedah yang diperkenalkan dalam artikel ini.
Apabila anda membuat janji temu baru dan klik butang "Pengulangan", di kotak dialog "Pengulangan Perjanjian" yang muncul, anda dapat melihat bahawa "Tidak ada tarikh akhir" dipilih secara lalai, seperti yang ditunjukkan pada gambar berikut. Sekiranya anda tidak menyukai ini dan ingin menetapkan tarikh akhir lalai, seperti 90 hari dari kejadian pertama, anda boleh terus membaca. Di sini kami akan mengajar anda 2 pendekatan untuk merealisasikannya.
Kaedah 1: Tetapkan dengan Mengubah Pendaftaran
- Untuk bermula, pergi ke "Menu Mula" dan cari "regedit".
- Kemudian, klik pada program "regedit" yang dijumpai.
- Selanjutnya, kotak dialog "Kawalan Akaun Pengguna" akan dipaparkan, di mana anda perlu klik "Ya".
- Setelah masuk ke tetingkap "Registry Editor", arahkan ke jalan - "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ \ Outlook \ Pilihan \ Kalendar "
- Kemudian, klik kanan "Kalendar" dan pilih "Baru"> "Nilai DWORD (32-bit)".
- Selepas itu, namakan nilai baru ini sebagai "RecurrencesDefault".
- Seterusnya, klik dua kali nilainya.
- Dalam kotak dialog "Edit Nilai DWORD (32-bit)" pop timbul, masukkan nombor di medan "Nilai data". Ia merujuk kepada pengiraan hari dari hari ini. Sebagai contoh, jika "90", Outlook akan menetapkan tarikh akhir pengulangan hingga 90 hari dari hari ini.
- Selepas itu, klik "OK" dan keluar dari Registry Editor dengan betul.
- Akhirnya, mulakan semula Outlook anda dan cuba buat temu janji berulang. Tarikh tamatnya akan ditetapkan mengikut nilai "RecurrencesDefault".
Kaedah 2: Tetapkan dengan Outlook VBA
- Sebagai permulaan, aktifkan editor Outlook VBA dengan menekan "Alt + F11".
- Kemudian, masukkan kod VBA berikut ke dalam projek "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
- Akhir sekali, klik pada makro "Application_Startup" dan tekan "F5".
- Pada masa ini, anda boleh membuat janji temu baru.
- Setelah itu, klik butang "Kambuhan", ubah tetapan berulang dengan tetap "Tidak ada tarikh akhir", dan klik "OK".
- Kemudian, anda boleh mengklik semula "Kambuhan" untuk memeriksa. Anda akan melihat bahawa tarikh akhir telah diubah mengikut kod VBA anda.
Betulkan Fail PST Outlook yang tidak dapat diakses
Adakah anda pernah menerima mesej ralat yang melibatkan "fail PST yang tidak dapat diakses" di Outlook anda? Sekiranya ada, bagaimana anda menangani mereka? Mungkin Scanpst mula-mula terlintas di fikiran anda. Tetapi semasa anda mencubanya betulkan Outlook, ia juga gagal. Dalam senario ini, pilihan terakhir anda adalah sama ada perisian pemulihan data yang berpengalaman seperti DataNumen Outlook Repair atau perkhidmatan pemulihan khusus.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com