У програмі Outlook, коли ви вмикаєте “Повторення” для зустрічі, за замовчуванням воно буде встановлено без дати завершення. Якщо ви хочете змінити його та встановити дату завершення за замовчуванням для періодичних зустрічей, ви можете скористатися методами, представленими в цій статті.
Коли ви створюєте нову зустріч і натискаєте кнопку «Повторення», у спливаючому діалоговому вікні «Повторення зустрічі» ви побачите, що за замовчуванням вибрано «Без дати завершення», як показано на наступному малюнку. Якщо вам це не подобається і ви хочете встановити дату завершення за замовчуванням, наприклад, 90 днів з моменту першого появи, ви можете читати далі. Тут ми навчимо вас 2-х підходів до його реалізації.

Спосіб 1: Встановлення шляхом зміни реєстру
- Для початку перейдіть до меню «Пуск» і знайдіть «regedit».
- Потім натисніть на знайдену програму “regedit”.
- Далі з’явиться діалогове вікно «Контроль облікових записів користувачів», у якому потрібно натиснути «Так».
- Після потрапляння у вікно "Редактор реєстру" перейдіть до шляху - "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ \ Outlook \ Параметри \ Календар "
- Пізніше клацніть правою кнопкою миші «Календар» і виберіть «Нове»> «Значення DWORD (32-біт)».
- Згодом назвіть це нове значення як “RecurrencesDefault”.
- Далі двічі клацніть значення.
- У спливаючому діалоговому вікні «Редагувати значення DWORD (32-біт)» введіть число в поле «Значення даних». Це стосується відліку днів від сьогодні. Наприклад, якщо це "90", Outlook встановить дату завершення повторення на 90 днів з сьогоднішнього дня.
- Потім натисніть кнопку «OK» і вийдіть із редактора реєстру належним чином.
- Зрештою, перезапустіть Outlook і спробуйте створити повторювану зустріч. Її дата завершення буде встановлена відповідно до значення «RecurrencesDefault».
Спосіб 2: Набір з Outlook VBA
- Для початку запустіть редактор VBA Outlook за допомогою комбінації клавіш «Alt + F11».
- Потім вкладіть наступний код VBA у проект “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
- Нарешті, клацніть макрос «Application_Startup» і натисніть «F5».
- В даний час ви можете створити нову зустріч.
- Потім натисніть кнопку «Повторення», змініть параметри повторення, зберігаючи «Без дати завершення», і натисніть «ОК».
- Пізніше ви можете ще раз натиснути «Повторність», щоб перевірити. Ви побачите, що дату завершення було змінено відповідно до вашого коду VBA.
Виправити недоступний файл PST у програмі Outlook
Ви коли-небудь отримували повідомлення про помилки, пов’язані з “недоступним файлом PST” у своєму Outlook? Якщо є, як ти з ними справився? Можливо, Сканпст спочатку прийшов вам у голову. Однак коли ви спробували це зробити виправити Outlook, це теж не вдалося. У цьому випадку ваш останній засіб - це досвідчене програмне забезпечення для відновлення даних, наприклад DataNumen Outlook Repair або спеціалізована служба відновлення.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql виправити та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com





