如果您想快速将所有显示为“暂定”的约会更改为“忙碌”状态，您可以参考这篇文章。 这里给大家分享2个可以批量实现的方法。
有些用户遇到过这样的情况，将约会导入他们的 Outlook 后，所有约会都显示为“暂定”状态。 但他们想将他们显示为“忙碌”。 在这种情况下，您可以使用以下两种方法之一来实现它。
方法 1：将暂定约会拖放到“忙碌”组
- 首先，启动 Outlook 应用程序。
- 然后，按“Ctrl + 2”键按钮访问“日历”区域。
- 接下来，打开日历文件夹。
- 然后，切换到“视图”选项卡并选择“更改视图”>“列表”。
- 稍后，单击“查看设置”按钮。
- 在弹出的“高级视图设置”对话框中，点击“分组依据”按钮。
- 随后，在“分组依据”框中，在“分组依据”字段中选择“显示时间为”。
- 之后，单击一系列“确定”以关闭所有对话框。
- 然后，在约会列表中，您会发现所有约会都已根据其状态分为不同的组。
- 此时，您可以单击“将时间显示为：暂定”组标题。
- 最后，将该组拖放到“Show Time As: Busy”组中，如下图所示：
- 一下子，所有的暂定都变成了“忙碌”状态。
方法二：用Outlook VBA批量更改
- 对于作为tart、在 Outlook 中，按“Alt + F11”键。
- 然后，在随后的 VBA 编辑器窗口中，打开一个未使用的模块。
- 接下来，将以下 VBA 代码复制到该模块中。
'Change all tentative appointments in all calendar folders to Busy status
Sub BatchChangeAllTenativeAppointments2Busy()
Dim objStores As Outlook.Stores
Dim objStore As Outlook.store
On Error Resume Next
Set objStores = Outlook.Application.Session.Stores
For Each objStore In objStores
Call ProcessFolders(objStore.GetRootFolder.Folders)
Next
End Sub
Sub ProcessFolders(ByVal objFolders As Folders)
Dim objFolder As Outlook.Folder
Dim objAppointment As Outlook.AppointmentItem
For Each objFolder In objFolders
If objFolder.DefaultItemType = olAppointmentItem Then
For Each objAppointment In objFolder.Items
With objAppointment
If .BusyStatus = olTentative Then
.BusyStatus = olBusy
.Save
End If
End With
Next
Call ProcessFolders(objFolder.Folders)
End If
Next
End Sub
- 最后，您可以通过按 F5 键或点击工具栏中的“运行”图标来触发此宏。
- 宏完成后，所有日历文件夹中的所有暂定将更改为“忙碌”状态。
及时清理旧的 Outlook 项目
众所周知，Outlook 数据文件越大，文件越容易损坏。 因此，建议定期清理 Outlook 中的旧项目和无用项目。 否则，随着时间的推移，您的 PST 文件将变得过大并且容易损坏。 届时，您将尽最大努力恢复您的 PST 数据，这是无法通过简单的方式完成的 收件箱维修工具. 你必须使用熟练的第三方工具，比如 DataNumen Outlook Repair.
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 恢复sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com