☰

有没有办法在 Outlook 中默认将 xx:05 自动设置为会议开始时间，将 xx:55 自动设置为会议结束时间

tag-icon • tag-icon microsoft-outlook microsoft-office calendar meetings
有没有办法在 Outlook 中默认将 xx:05 自动设置为会议开始时间，将 xx:55 自动设置为会议结束时间

是否有注册表编辑技巧或宏，我可以使用它们来让会议的默认时间在整点后 5 分钟开始，在整点前 5 分钟结束。我现在手动执行此操作，以消除有人迟到的问题 - 我会准时在“5 分钟后”开始...这很有效，但在安排会议时点击起来却很麻烦。

答案1

我终于在 Google 上找到了解决方案 - 但简单搜索后找不到答案。似乎没多少人感兴趣。

我在一台没有安装 Outlook 的电脑上撰写这篇文章，但希望我记得清楚。

  1. 您需要在 Outlook 中启用开发人员“功能区”

  2. 您需要创建新表格（使用预约表格作为基础）

  3. 在这个新表单上，您需要输入用于“打开”操作的 VBA 代码

  4. 在此代码中 - 您需要修改 Item.Start 和 Item.End（仅当将其设置为整小时或半小时时，如果您错过了这部分，您的约会将在每次打开时“缩短”。开始应为 +5 分钟，结束应为 -10 分钟（因为开始的 +5 实际上也将结束时间向前推了 5 分钟）。

  5. 在编辑新表格时，您可能希望在邀请中添加一些标准页脚（例如您的电话会议号码）。

  6. 保存此表格（如果我记得清楚的话，“将表格发布为......”）

  7. 在日历视图中的日历“文件夹”上单击鼠标右键，将要使用的默认表单从“约会”更改为您在第 6 点中保存的表单。

希望你能在谷歌的帮助下理解这一点。解决方案是

  1. 创建新表单
  2. 在其开头添加小的 VBA
  3. 选择此表单作为您的新默认“日历表单”。

答案2

看来 Outlook 在更高版本中具有此功能：https://chrismenardtraining.com/post/outlook-buffer-time

答案3

请遵循以下准则：

https://www.datanumen.com/blogs/2-methods-change-default-duration-appointment-meeting-outlook/

而使用下面的宏：

Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objAppointment As Outlook.AppointmentItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is AppointmentItem Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    'Set the default duration of new appointment
    If objAppointment.CreationTime = #1/1/4501# Then
       objAppointment.Duration = "50"
       objAppointment.Start = DateAdd("n", 5, objAppointment.Start)
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    'When you disable the "All Day Event"
    'Change the default duration of the current appointment
    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = False Then
          objAppointment.Duration = "50"
          objAppointment.Start = DateAdd("n", 5, objAppointment.Start)
       End If
    End If
End Sub

相关内容