Как сделать статус «Занято» событий на весь день значением по умолчанию в Outlook?

По умолчанию Outlook помечает встречи как «Занято», а события на весь день — как «Свободно» (см. скриншот ниже). Каждый раз, создавая событие на весь день, вам приходится вручную менять статус «Показывать как» на «Занято». В этой статье описаны два способа изменить статус «Показывать как» для событий на весь день по умолчанию на «Занято».

Изменение статуса события на весь день по умолчанию на «Занято» с помощью пользовательской формы

Пользовательская форма позволяет создавать события на весь день со статусом «Показывать как» по умолчанию — «Занято». Выполните следующие действия.

1. Перейдите в режим календаря: нажмите «Главная» > «Встреча».

2. В окне «Встреча» выберите «Разработчик» > «Разработать эту форму».

Совет. Если вкладка «Разработчик» не отображается на ленте, следуйте инструкциям в этой статье, чтобы отобразить её.

3. После этого окно встречи перейдёт в режим разработки — перейдите на вкладку «(P.2)».

4. Перетащите поля «Событие на весь день» и «Занятость» из области «Выбор полей» по отдельности в рабочую область под вкладкой «(P.2)».

5. Щелкните правой кнопкой мыши перетащенное поле «Событие на весь день» и в контекстном меню выберите «Свойства».

6. В диалоговом окне «Свойства» задайте следующие параметры.

7. Щелкните правой кнопкой мыши поле со списком «Занятость» и выберите в контекстном меню пункт «Свойства».

8. В диалоговом окне «Свойства» задайте следующие параметры.

9. Нажмите «Опубликовать» > «Опубликовать форму как» на ленте.

10. В диалоговом окне «Опубликовать форму как» выполните следующие действия:

11. Закройте окно встречи, не сохраняя изменения.

12. Отныне, когда Вам нужно создать событие на весь день со статусом «Показывать как» по умолчанию «Занято», перейдите в режим «Календарь» и нажмите «Главная» > «Новые элементы» > «Пользовательские формы» > «Имя пользовательской формы».

Примечание. Чтобы создать событие на весь день со статусом «Показывать как» по умолчанию «Свободно», действуйте как обычно: перейдите в меню «Главная» > «Встреча», а затем установите флажок «Событие на весь день» в окне «Встреча».

Изменение статуса события на весь день по умолчанию на «Занято» с помощью VBA

Предыдущий метод требует слишком многих шагов. Если вы регулярно создаёте целодневные события со статусом «Показывать как» по умолчанию — «Занято», следующий код VBA значительно упростит эту задачу.

1. Запустите Outlook и одновременно нажмите клавиши «Alt» + «F11», чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне «Microsoft Visual Basic for Applications» дважды щёлкните «Project1» > «Объекты Microsoft Outlook» > «ThisOutlookSession», чтобы открыть окно кода «ThisOutlookSession», и вставьте в него приведённый ниже код.

Код VBA: Установка статуса события на весь день по умолчанию как «Занято»

Public WithEvents GInspectors As Inspectors
Public WithEvents GAppointmentItem As AppointmentItem

Private Sub Application_Startup()
'Updated by Extendoffice 20220413
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Select Case Inspector.CurrentItem.Class
    Case olAppointment
      Set GAppointmentItem = Inspector.CurrentItem
  End Select
End Sub

Private Sub GAppointmentItem_Open(Cancel As Boolean)
  Select Case GAppointmentItem.AllDayEvent
    Case True
      GAppointmentItem.BusyStatus = olBusy
  End Select
End Sub

Private Sub GAppointmentItem_PropertyChange(ByVal Name As String)
  If Name = "AllDayEvent" Then
    Select Case GAppointmentItem.AllDayEvent
      Case True
        GAppointmentItem.BusyStatus = olBusy
    End Select
  End If
End Sub

3. Сохраните код VBA и перезапустите Outlook.

Теперь после преобразования встречи или совещания в событие на весь день статус «Показывать как» по умолчанию будет установлен как «Занято».

Связанные статьи

---

Лучшие инструменты для повышения продуктивности в Office

Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!

🤖KUTOOLS AI:Использует передовые технологии ИИ для удобной работы с электронной почтой: ответы, составление резюме, оптимизация, расширение, перевод и создание писем.

📧Автоматизация работы с электронной почтой: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…

📨Управление электронной почтой: Отозвать письмо / Блокировка спама по теме и другим признакам / Удаление дубликатов писем / Расширенный поиск / Организация папок…

📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…

🌟Волшебство интерфейса: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных входящих письмах / Сворачивание Outlook вместо закрытия…

👍Чудеса одним щелчком: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…

👩🏼‍🤝‍👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные группы / Удаление напоминания о дне рождения…

Используйте Kutools на вашем любимом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!

Мгновенно получите доступ к Kutools для Outlook одним щелчком! Не теряйте время — скачайте прямо сейчас и повысьте свою эффективность!

Список функций Kutools для Outlook      Скачать сейчас      Перейти к покупке

🚀 Скачать одним щелчком — Получите все надстройки для Office

Настоятельно рекомендуется: Kutools for Office (5 в 1)

Скачайте одним щелчком пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!

• ✅Удобство одним щелчком: Скачайте все пять установочных пакетов за одно действие.
• 🚀Готовы к любой задаче в Office: устанавливайте нужные надстройки именно тогда, когда они вам понадобятся.
• 🧰Входит в комплект: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools for PowerPoint

О пакете⬇ Скачать пакет💳 Приобрести пакет