Outlook 2013 Termin-Template mit Zeit-und Datumvorgabe

Hallo zusammen,
ich habe mir eine passend formatierte Terminvorlage in Outlook erstellt.
Diese Vorlage öffne ich in einem Makro:
Set obj = Application.CreateItemFromTemplate(File)
obj.Display

Über eine selbst definierte Symbolleiste kann ich nun das Makro aufrufen.

Dann ist der Termin passend formatiert. Es wird dann allerdings immer das aktuelle Datum mit der aktuellen Uhrzeit vorgeschlagen.
Kann ich dem Makro auch einen zuvor ausgewähltes Datum und Uhrzeit mitgeben, was ich auf dem Outlook Kalender selektiere und anschließend das Makro starte?


Ist das möglich?`

Bin für jede Antwort dankbar.

MfG
Mario

Sub CreateAppointmentFromTemplate()
    Dim app As AppointmentItem, v As View
    Set app = Application.CreateItemFromTemplate("C:\Pfad\Vorlage.oft")  
    Set v = ActiveExplorer.CurrentView
    With app
        If v.Class = olClassCalendarView Then
            .Start = v.SelectedStartTime
            .End = v.SelectedEndTime
        End If
        .Display
    End With
End Sub