Outlook VBA - 現在カレンダーで選択されている時間範囲にアクセスするにはどうすればよいですか？

Question

私は、Outlookの予定に関する情報を入力するためのカスタムUIを表示することができるOutlookにVBAマクロを書き込もうとしています。私はこれを既存の予定に使用していますが、ユーザーがクリックしてドラッグして時間範囲を選択してマクロをトリガーすることで、新しい予定を作成できるようにしたいと考えています。 （これはOutlookのビルトインされた新しいアポイントメントコマンドで機能します）マクロを使用して新しいアポイントメントを作成するときに使用できるように、選択した時間範囲でプログラム的に取得する方法を知りたいと思います。

誰でもこの情報にVBAからアクセスする方法は知っていますか？経由Create custom appointment with user's time selection

：このリンクを発見

Answer 1

How can I get calendar selection to form (VBA)?

Answer 2

良い方法は、私はリボンのカスタムボタンでこれをトリガーSelectedStartTimeとSelectedEndTime https://msdn.microsoft.com/en-us/library/office/ff869571.aspx

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 

を使用することです。 2007年以前のテストは行っていませんでした。