vba - Outlook 约会 - 如何更改开始时间下拉列表中的项目

Question

我需要将开始/结束时间下拉列表中的项目更改为相隔 5 分钟。似乎没有简单的方法来设置它，所以我正在尝试 VBA。

我可以让检查员在打开预约表格时进行检查:

If Inspector.CurrentItem.Class = olAppointment Then

...但我不知道如何引用或更改开始/结束时间下拉控件以获得我想要的时间列表。

如果有人知道允许用户以 5 分钟为间隔选择时间的替代方法，那也太好了!

Answer 1

检查 Appointment.Start属性(property)。使用以下函数获取当前对象

Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application
    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
    Case "Explorer"
    Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
    Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    End Select
    GetCurrentItem.UnRead = False
    Set objApp = Nothing
End Function