Перейти до основного матеріалу

Як змінити подію на весь день за замовчуванням на зайнятість у Outlook?

За замовчуванням Outlook встановлює статус зустрічей і нарад "Зайнятий", але цілий день події до "Безкоштовно" (див. скріншот нижче). Вам потрібно вручну змінювати статус «Показати як» на «Зайнятий» щоразу, коли ви створюєте подію на весь день. Щоб змінити відображення за замовчуванням як статус подій на весь день на «Зайнятий», у статті надано два способи.


Змініть подію на весь день за умовчанням на зайняту, створивши спеціальну форму

Спеціальна форма може допомогти вам створити подію на весь день зі значенням за замовчуванням Показати як статус Зайняте. Будь ласка, зробіть наступне.

1. Перейдіть до перегляду календаря. Натисніть Головна > Нове призначення.

2. У новому вікні зустрічі натисніть Розробник > Створити цю форму.

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

3. Потім вікно зустрічі переходить у режим проектування. Вам потрібно натиснути (Стор.2) Вкладка.

4. Перетягніть Подія на весь день поле та Показувати час як поле від Вибір поля панель окремо до дошки під (Стор.2) таб

5. Клацніть правою кнопкою миші на витягнуте Подія на весь день поле і виберіть властивості з контекстного меню.

6 В властивості діалогове вікно, вам потрібно налаштувати наступним чином.

6.1) Перейдіть до значення вкладка;
6.2) У Початкове значення розділ перевірити Встановіть початкове значення цього поля коробка;
6.3) Введіть значення “Правда” у текстове поле;
6.4) Клацніть на OK кнопку. Дивіться знімок екрана:

7. Клацніть правою кнопкою миші на полі зі списком Показувати час як поле і клацніть властивості з контекстного меню.

8 В властивості діалогове вікно, вам потрібно налаштувати наступним чином.

8.1) Перейдіть до значення вкладка;
8.2) У Початкове значення розділ перевірити Встановіть початкове значення цього поля коробка;
8.3) Введіть число «2” в текстове поле;
8.4) Клацніть на OK кнопку. Дивіться знімок екрана:

9. клацання Публікувати > Опублікувати форму як на стрічці.

10 В Опублікувати форму як у діалоговому вікні потрібно:

10.1) Виберіть папку призначення для спеціальної форми в Заглядати випадаючий список. Тут я вибираю Бібліотека особистих форм предмет;
10.2) Назвіть спеціальну форму в Зміни імен текстове вікно;
10.3) Клацніть на Публікувати кнопку. Дивіться знімок екрана:

11. Закрийте вікно Зустріч без збереження.

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

Примітка: Щоб створити подію на весь день зі статусом Показати як статус за замовчуванням «Безкоштовно», просто виконайте як зазвичай: натисніть Головна > Нове призначення, а потім перевірте Цілоденний захід коробка в Призначення вікна.


Змініть подію на весь день за умовчанням на зайняте за допомогою VBA

Наведений вище метод містить забагато кроків. Якщо вам завжди потрібно створити подію на весь день зі статусом «Показати як» за замовчуванням «Зайнятий», наведений нижче код VBA допоможе вам легко це зробити.

1. Запустіть Outlook, натисніть інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікно, двічі клацніть на 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.

Відтепер, після перетворення зустрічі чи зустрічі на подію на весь день, Показати як статус відображатиметься як "Зайнятий" за замовчуванням


Статті по темі

Змінити час нагадування за умовчанням про події протягом дня в Outlook
Зазвичай за замовчуванням час нагадування про подію протягом усього дня становить 18 годин у програмі Outlook 2007/2010 та 0.5 доби у програмі Outlook 2013. Іноді час нагадування за замовчуванням про подію протягом усього дня може не узгоджуватися з вашим графіком роботи. Тут ми представимо спосіб змінити час нагадування за замовчуванням про цілоденні події в Microsoft Outlook.

Змініть час виконання за замовчуванням в Outlook
Як ми знаємо, коли ми додаємо нагадування про подальший електронний лист у програмі Outlook, час за замовчуванням - 4:30 (або інший час залежно від робочого часу). Однак, можливо, ви захочете змінити час подальшого спостереження за замовчуванням, і нехай він нагадує вам на початку робочого часу, наприклад 9:00. У цій статті я покажу вам, як змінити час спостереження за замовчуванням у програмі Outlook.

Змініть розташування архіву за замовчуванням в Outlook
За замовчуванням Outlook має стандартне розташування для архівних файлів. Окрім розташування за замовчуванням, ви можете встановити власне розташування архіву для своїх архівних файлів. У цьому посібнику ми детально покажемо, як змінити розташування архіву за замовчуванням у програмі Outlook.

Змінити місце збереження вкладень за замовчуванням в Outlook
Вам набридло знаходити розташування вкладень, яке ви вказували кожного разу під час запуску Outlook? У цьому підручнику ми покажемо вам, як змінити місце вкладення за замовчуванням. Після цього вказана папка збереження вкладень буде відкриватися автоматично кожного разу, коли ви зберігаєте вкладення, навіть якщо перезапускаєте Outlook.

Змініть час за замовчуванням для затримки доставки в Outlook
У цьому посібнику наведено код VBA, який допоможе вам змінити час за замовчуванням для параметра затримки доставки в Outlook.


Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення ProПакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

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

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ahoj,
ani mě to nefunguje. Nevyskočila ani žádná zpráva.
Office Microsoft 365 apps pro velké organizace.

Můžu to nějak trasovat nebo najít někde v logu?

Dík Honza
This comment was minimized by the moderator on the site
Hi,
I've tried the second technique but it did not work. Do you know whether this still works on the newest Outlook version ?
Best,
Ben
This comment was minimized by the moderator on the site
Hi Benjamin Djian,
Yes the code still works on the newest Outlook version? Did you get any error prompt?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations