Setelah Anda menjadwalkan janji temu berulang di kalender Outlook Anda, jika Anda ingin menghapus pengingat kejadian yang jatuh pada akhir pekan, Anda dapat menggunakan metode yang diperkenalkan di artikel ini.
Apakah Anda memiliki janji temu berulang di kalender Outlook Anda? Misalnya, Anda telah menjadwalkan janji temu berulang yang dilakukan setiap 4 hari. Dalam hal ini, beberapa kemunculan janji temu ini akan jatuh pada akhir pekan. Pada titik ini, pengingat kejadian akhir pekan ini mungkin tidak berguna bagi Anda. Oleh karena itu, Anda ingin menghapus pengingat mereka. Berfokus pada persyaratan ini, di sini kami akan memperkenalkan cara yang efektif dan nyaman.
Hapus Pengingat untuk Kejadian Akhir Pekan dari Janji Berulang
- Pertama-tama, luncurkan aplikasi Outlook.
- Kemudian, buka editor Outlook VBA melalui tombol "Alt + F11".
- Selanjutnya, masukkan kode VBA berikut ke dalam proyek atau modul.
Sub RemoveRemindersOfWeekendOccurrencesOfRecurringAppointments()
Dim objAppointment As Outlook.AppointmentItem
Dim objCalendar As Outlook.Folder
Dim objCalendarItems As Outlook.Items
Dim objRecurrencePattern As RecurrencePattern
Dim dStartDate, dEndDate As Date
Dim dCurrentDate, dActualTime As Date
Dim strFilter As String
Dim objFoundAppointment As Outlook.AppointmentItem
Dim objOccurrence As Outlook.AppointmentItem
Set objAppointment = Application.ActiveExplorer.Selection.Item(1)
Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
Set objCalendarItems = objCalendar.Items
objCalendarItems.Sort "[Start]", False
objCalendarItems.IncludeRecurrences = True
Set objRecurrencePattern = objAppointment.GetRecurrencePattern
dStartDate = Format(objRecurrencePattern.PatternStartDate, "MM/DD/YYYY")
dEndDate = Format(objRecurrencePattern.PatternEndDate, "MM/DD/YYYY")
dCurrentDate = dStartDate
Do Until dCurrentDate >= dEndDate
If Weekday(dCurrentDate) = vbSaturday Or Weekday(dCurrentDate) = vbSunday Then
dActualTime = dCurrentDate & " " & objRecurrencePattern.StartTime
dActualTime = Format(dActualTime, "ddddd hh:mm:ss AMPM")
strFilter = "[Start] <= " & Chr(34) & dCurrentDate & " 11:59 PM" & Chr(34) & " AND [End] > " & Chr(34) & dCurrentDate & " 00:00 AM" & Chr(34) & " AND [Subject] = " & Chr(34) & objAppointment.Subject & Chr(34)
Set objFoundAppointment = objCalendarItems.Find(strFilter)
If Not objFoundAppointment Is Nothing Then
'Get the occurrence on weekends
Set objOccurrence = objRecurrencePattern.GetOccurrence(dActualTime)
'Remove the reminders
With objOccurrence
.Subject = "(C)" & objAppointment.Subject
.ReminderSet = False
.Save
End With
End If
End If
dCurrentDate = DateAdd("d", 1, dCurrentDate)
Loop
End Sub
- Setelah itu, Anda bisa menutup jendela.
- Selanjutnya, ikuti langkah-langkah yang ditampilkan di artikel “Cara Menjalankan Kode VBA di Outlook Anda”Untuk menambahkan makro ini ke Bilah Alat Akses Cepat.
- Akhirnya, jalankan makro ini sekarang.
- Pertama, pilih satu kemunculan janji temu berulang.
- Selanjutnya, klik tombol makro di Bilah Alat Akses Cepat.
- Setelah makro selesai, pengingat kejadian yang dijadwalkan pada akhir pekan akan dihapus. Selain itu, subjek akan diubah berdasarkan kode, seperti tangkapan layar berikut:
Lindungi Outlook dari Korupsi
Seperti file umum lainnya, seperti dokumen Word, lembar kerja Excel, file data Outlook rentan. Oleh karena itu, Anda harus mengambil beberapa tindakan pencegahan yang ampuh untuk mengurangi kemungkinan kerusakan Outlook. Misalnya, Anda harus tetap melakukan backup data PST biasa. Terlebih lagi, untuk mencegah kehilangan data, kita harus menyimpan alat perbaikan Outlook di sekitarnya, seperti DataNumen Outlook Repair. Itu bisa perbaiki Outlook masalah dengan mudah tanpa usaha.
Pengantar Penulis:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk korupsi sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com