Outlook VBA ile Birden Çok Randevunun Hatırlatma Süresini Toplu Olarak Değiştirme

Şimdi paylaş:

Birden fazla randevunun hatırlatma zamanını sık sık değiştirmeniz gerekiyorsa, bu makale size oldukça yardımcı olacaktır. Buradaki yöntem, sizi hatırlatma zamanını tek tek manuel olarak değiştirmekten etkili bir şekilde kurtaracaktır.

Bir önceki yazı – “Toplu Takvim Öğeleri için Hatırlatıcı Oluşturmak ve Değiştirmek İçin 3 Adım”, birçok randevunun hatırlatma zamanını toplu olarak değiştirmek için bir yöntem paylaştı. Yine de, önce görünüm ayarlarını değiştirmenizi ve ardından bir randevunun hatırlatıcısını manuel olarak değiştirmenizi ister. Bu nedenle, burada size çok daha etkili bir yol tanıtacağız. Burada ayrıntılı adımları ve somut VBA kodunu göstereceğiz. Bu nedenle, VBA hakkında bilgi sahibi olmama konusunda endişelenmenize gerek yok. Okumaya devam et.

Çoklu Randevuların Hatırlatma Zamanını Toplu Olarak Değiştirin

  1. Öncelikle Outlook programını başlatın.
  2. Ardından, “ referansıyla VBA editörüne erişin.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
  3. Ardından, aşağıdaki VBA kodunu kopyalayıp kullanılmayan bir modüle yapıştırın.
Sub BatchChangeRemindersMultipleAppointments()
 Dim lReminderMinBeforeStart As Long
 Dim objSelection As Outlook.Selection
 Dim i As Long
 Dim objAppointment As Outlook.AppointmentItem
 
 'Enter the number of minutes the reminder should occur prior to the start of the appointment
 lReminderMinBeforeStart = InputBox("Enter the reminder minutes before start:", , "45")
 
 Set objSelection = Outlook.ActiveExplorer.Selection
 
 For i = objSelection.Count To 1 Step -1
 If TypeOf objSelection.Item(i) Is AppointmentItem Then
 Set objAppointment = objSelection.Item(i)
 
 'Enable the reminder
 If objAppointment.ReminderSet = False Then
 With objAppointment
 .ReminderSet = True
 .Save
 End With
 End If
 
 With objAppointment
 .ReminderMinutesBeforeStart = lReminderMinBeforeStart
 .Save
 End With
 End If
 Next
 
 'Prompt you of "Complete"
 MsgBox "Complete!", vbInformation + vbOKOnly
End Sub

VBA Kodu - Çoklu Randevuların Hatırlatma Zamanını Toplu Değiştirme

  1. Bundan sonra, bu makroyu şeride veya Hızlı Erişim Araç Çubuğuna ekleyin.
  2. Son olarak, deneyebilirsiniz.
  • Başlamak için, istediğiniz randevuları seçin.
  • Ardından, makro düğmesine tıklayın.Seçilen Randevularda Makro Çalıştır
  • Ardından, açılan iletişim kutusunda, randevu başlangıcından önce hatırlatılacak dakika sayısını girin.Etkinliğin başlamasından dakikalar önce hatırlatıcıyı girin.
  • Artık, seçtiğiniz randevuların, isteğinize göre değiştirilmiş hatırlatma zamanını kontrol edebilirsiniz.Değişen Hatırlatma Süresi

Outlook Hatalarını Ortadan Kaldırın

Outlook'ta sık sık çeşitli hatalarla karşılaşırsanız, bazı sağlam önlemler almalısınız. Örneğin, Outlook PST dosyanızı bir kerede yedeklemeniz, dosyayı virüslere karşı taramanız ve onları öldürmeniz, Scanpst'i etkili bir şekilde nasıl kullanacağınızı öğrenmeniz gerekir. PST'yi düzelt gibi harici bir düzeltme aracını ele geçirin ve DataNumen Outlook Repair. Gelen kutusu onarım aracı tarafından çözülemeyen zahmetli sorunlarla karşılaştığınızda kullanışlı olacaktır.

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

Şimdi paylaş:

Yoruma kapalı.