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

Спосіб 1: Застосуйте спеціальну форму до папок календаря
- Спочатку запустіть програму Outlook.
- Потім доступ до області “Календар”.
- Далі натисніть кнопку «Нове призначення» на стрічці.
- Згодом у вікні «Призначення» перейдіть на вкладку «Розробник» і натисніть кнопку «Створити цю форму».
- Після цього на новому екрані перейдіть на вкладку “(Усі поля)”.
- Потім виберіть «Усі поля призначення» у полі «Вибрати з».
- Пізніше вам слід прокрутити вниз, поки не з’явиться поле «Показати час як», яке потрібно змінити для «Зайнято» на «Безкоштовно».
- Згодом ви можете натиснути кнопку «Опублікувати» та вибрати «Опублікувати форму як».
- У спливаючому діалоговому вікні введіть назву для цієї форми, наприклад, «Безкоштовне призначення» та натисніть «Опублікувати».
- Потім ви можете закрити це побачення, не зберігаючи.
- Далі клацніть правою кнопкою миші на календарі в навігаційній області та виберіть "Властивості" в контекстному меню.
- Потім у новому вікні змініть “IPM.Appointing” на “Free Appointing”, як показано на наступному скріншоті.
- Зрештою, натисніть «OK», щоб зберегти зміни.
- Відтоді всі нові зустрічі, додані до цього календаря, за замовчуванням відображатимуться як «Безкоштовні».
Спосіб 2: Автоматичне застосування іншого стану до нових зустрічей через VBA
- В першу чергу натисніть клавіші “Alt + F11”.
- Потім у вікні “Microsoft Visual Basic for Applications” знайдіть і відкрийте проект “ThisOutlookSession”.
- Далі скопіюйте та вставте наступний код VBA в цей проект.
Private WithEvents objInspectors As Inspectors
Private WithEvents objAppointment As AppointmentItem
Private Sub Application_Startup()
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olAppointment Then
Set objAppointment = Inspector.CurrentItem
End If
End Sub
Private Sub objAppointment_Open(Cancel As Boolean)
'Get the brand new appointment
If Len(objAppointment.Subject) = 0 And Len(objAppointment.Location) = 0 Then
'change busy status to free
objAppointment.BusyStatus = olFree
End If
End Sub
- Після цього підпишіть цей код.
- Нарешті, вам слід перезапустити Outlook, щоб активувати цей макрос.
- Відтепер нова зустріч, безумовно, автоматично відображатиметься як “Безкоштовна”.
Що робити, якщо ви страждаєте від збоїв Outlook
Outlook може вийти з ладу без попереджень. Тому передбачити та запобігти таким жахливим випадкам досить складно. Тим не менш, ви все-таки повинні вжити ефективних заходів допомоги, включаючи оновлені резервні копії даних Outlook, а також потужний інструмент виправлення, такий як DataNumen Outlook Repair. Це допоможе вам на допомогу, якщо scanpst, вбудований інструмент ремонту не може робити ефекти.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql корупція та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com


