Setelah anda menjadualkan janji temu berulang dalam kalendar Outlook anda, jika anda ingin menghapus peringatan kejadian yang berlaku pada hujung minggu, anda boleh menggunakan kaedah yang diperkenalkan dalam artikel ini.
Adakah anda mempunyai janji temu berulang dalam kalendar Outlook anda? Sebagai contoh, anda telah menjadualkan janji temu berulang setiap 4 hari. Dalam kes ini, beberapa kejadian janji temu ini akan berlaku pada hujung minggu. Pada ketika ini, peringatan kejadian hujung minggu ini mungkin tidak berguna untuk anda. Oleh itu, anda ingin membuang peringatan mereka. Dengan memberi tumpuan kepada keperluan ini, di sini kami akan memperkenalkan cara yang berkesan dan mudah.
Buang Peringatan untuk Kejadian Akhir Pekan Janji Temu Berulang
- Pada awalnya, lancarkan aplikasi Outlook.
- Kemudian, beralih ke editor Outlook VBA melalui kekunci "Alt + F11".
- Seterusnya, masukkan kod VBA berikut ke dalam projek 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
- Selepas itu, anda boleh menutup tetingkap.
- Selepas itu, ikuti langkah-langkah yang ditunjukkan dalam artikel “Cara Menjalankan Kod VBA di Outlook Anda"Untuk menambahkan makro ini ke Bar Alat Akses Pantas.
- Akhirnya, jalankan makro ini sekarang.
- Pertama, pilih satu kali janji temu berulang.
- Seterusnya, klik butang makro di Bar Alat Akses Pantas.
- Setelah makro selesai, peringatan kejadian yang dijadualkan pada hujung minggu akan dikeluarkan. Juga, subjek akan diubah berdasarkan kod, seperti tangkapan skrin berikut:
Melindungi Outlook dari Rasuah
Seperti fail biasa yang lain, seperti dokumen Word, lembaran kerja Excel, fail data Outlook rentan. Dengan itu, anda harus mengambil beberapa langkah berjaga-jaga untuk mengurangkan kemungkinan kerosakan Outlook. Contohnya, anda harus terus membuat cadangan data PST biasa. Terlebih lagi, untuk mencegah kehilangan data, kita harus menyimpan alat pembaikan Outlook di sekitarnya, seperti DataNumen Outlook Repair. Ia mampu baiki Outlook masalah dengan mudah.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk rasuah sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com