Outlook VBA-如何访问日历上当前选定的时间范围？

我正在尝试在Outlook中编写一个VBA宏，该宏允许我显示一个自定义UI，用于输入有关Outlook约会的信息。我已经为现有约会设置了此选项，但我希望能够通过让用户单击并拖动以选择时间范围，然后触发宏来创建新约会。（这适用于Outlook中内置的“新建约会”命令。）我想知道如何以编程方式获取选定的时间范围，以便在通过宏创建新约会时使用它

有人知道如何从VBA访问此信息吗？

找到此链接：

---

via:

更好的方法是使用

SelectedStartTime

和

selectededdtime

我使用功能区上的自定义按钮触发此操作。没有在2007年或之前测试此

Public Sub GetNewAppt() 
    Dim exp As Explorer: Set exp = Outlook.ActiveExplorer
    Dim mfCalFolder As MAPIFolder
    Set mfCalFolder = exp.CurrentFolder
    Dim vw As View: Set vw = exp.CurrentView
    If vw.ViewType = olCalendarView Then
        With vw
            Dim objAppt As AppointmentItem
            Set objAppt = mfCalFolder.Items.Add
            objAppt.Start = .SelectedStartTime
            objAppt.End = .SelectedEndTime
            objAppt.Display
        End With
    End If
End Sub