Як пакетно змінити час нагадування кількох призначень за допомогою Outlook VBA

Поділитися зараз:

Якщо вам часто потрібно змінювати час нагадування про кілька зустрічей, ця стаття буде для вас значно корисною. Цей метод ефективно врятує вас від ручного зміни часу нагадування по одному.

Попередня стаття - “3 кроки для створення та зміни нагадувань для елементів календаря в партіях”Поділився методом масової зміни часу нагадування багатьох зустрічей. Тим не менше, він все одно вимагає від вас спочатку змінити налаштування перегляду, а потім змінити нагадування про одну зустріч вручну. Тому тут ми представимо вам набагато ефективніший спосіб. Тут ми покажемо докладні кроки та конкретний код VBA. Отже, вам не потрібно турбуватися про відсутність знань про VBA. Просто читайте далі.

Пакетна зміна часу нагадування кількох призначень

  1. На самому початку запустіть програму Outlook.
  2. Потім відкрийте редактор VBA з посиланням на “Як запустити код VBA у своєму Outlook».
  3. Далі скопіюйте та вставте наступний код VBA у невикористаний модуль.
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 - Пакетна зміна часу нагадування кількох призначень

  1. Після цього додайте цей макрос на стрічку або панель швидкого доступу.
  2. Нарешті, ви можете спробувати.
  • Для початку виберіть потрібні зустрічі.
  • Потім натисніть кнопку макросу.Запустіть макрос на вибраних зустрічах
  • Далі, у спливаючому діалоговому вікні, введіть кількість хвилин нагадування до початку зустрічі.Введіть кількість хвилин нагадування до початку елемента
  • Тепер ви можете перевірити час нагадування про вибрані зустрічі, які було змінено на ваше бажання.Змінено час нагадування

Усунення помилок Outlook

Якщо ви часто стикаєтесь з різними помилками в програмі Outlook, вам слід вжити певних заходів. Наприклад, вам потрібно відразу створити резервну копію вашого файлу Outlook PST, відсканувати файл на наявність вірусів та вбити їх, навчитися ефективно використовувати Scanpst для виправити PST проблеми та заручитися зовнішнім інструментом виправлення, наприклад DataNumen Outlook Repair. Це стане в нагоді, коли ви зіткнетеся з проблемними проблемами, з якими не вдасться впоратись засіб відновлення папки "Вхідні".

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql виправити та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.