跳到主要内容

如何在 Outlook 中将全天事件默认设置为忙碌?

添加一名作者 最后修改时间:2022-04-25

默认情况下,Outlook 将约会和会议的状态设置为 “忙碌的”, 但全天活动 “自由” (见下面的截图)。 每次创建全天事件时,您都需要手动将 Show As 状态更改为 Busy。 要将全天事件的默认显示状态更改为忙碌,本文为您提供了两种方法。


通过创建自定义表单将全天活动默认设置为忙碌

自定义表单可以帮助您使用默认设置创建全天事件 显示为 状态 忙。 请按以下步骤操作。

1. 切换到日历视图。 点击 主页 > 新任命.

2. 在新的约会窗口中,单击开发人员 > 设计此表单。

提示: 如果 开发商 选项卡未显示在功能区上,请按照方法 在这篇文章中 显示它。

3. 然后约会窗口转到设计模式。 您需要点击 (P.2) 标签。

4。 拖动 全天的活动 场和 显示时间为 来自的字段 字段选择器 窗格分别到板下 (P.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对象 > 本次展望会议 打开 本次展望会议 (码) 窗口,然后将以下代码复制到此代码窗口中。

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 中更改全天事件的默认提醒时间
通常,全天事件的默认提醒时间在Outlook 18/2007中为2010小时,在Outlook 0.5中为2013天。有时,全天事件的默认提醒时间可能与您的工作计划不一致。 在这里,我们将介绍在Microsoft Outlook中更改全天活动的默认提醒时间的方法。

更改 Outlook 中的默认跟进时间
众所周知,当我们在Outlook中为电子邮件添加跟进提醒时,默认的跟进时间为4:30 PM(或其他时间取决于您的工作时间)。 但是,您可能需要更改默认的跟进时间,并让它在工作时间开始时提醒您,例如9:00 AM。 在本文中,我将向您展示如何在Outlook中更改默认的跟进时间。

更改 Outlook 中的默认存档位置
默认情况下,Outlook具有存档文件的默认位置。 除了默认位置,您还可以为存档文件设置自己的存档位置。 在本教程中,我们将详细向您展示如何在Outlook中更改默认存档位置。

在Outlook中更改默认附件保存位置
您是否对每次启动Outlook时都指定的附件位置感到厌烦? 在本教程中,我们将向您展示如何更改默认附件位置。 此后,即使重新启动Outlook,每次保存附件时,也会自动打开指定的附件保存文件夹。

在 Outlook 中更改延迟传递的默认时间
本教程提供了一个 VBA 代码来帮助您更改 Outlook 中延迟交付选项的默认时间。


最佳办公生产力工具

最新消息:Kutools for Outlook 发布 免费版本!

体验全新的 Kutools for Outlook 免费版本拥有 70 多项令人难以置信的功能,您可以永久使用! 点击立即下载!

🤖 Kutools人工智能 : 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...

📧 电子邮件自动化: 自动回复(适用于 POP 和 IMAP)  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发(高级规则)   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 撤回电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  收到重要邮件时提醒您  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

只需单击一下即可立即解锁 Kutools for Outlook -永久免费. 别等了, 立即下载并提高您的效率!

kutools for outlook 功能1 kutools for outlook 功能2
 

 

 

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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations