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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 288921
Url: https://administrator.de/contentid/288921
Printed on: April 18, 2024 at 07:04 o'clock
2 Comments
Latest comment
Hallo Mario,
kein Problem, machst du so:
Ist die aktuelle Ansicht im aktiven Outlook-Explorer eine Kalenderansicht wenn du das Makro ausführst, dann wird die aktuelle Zeit-Selektion mit in die Terminvorlage übernommen.
Grüße Uwe
kein Problem, machst du so:
Ist die aktuelle Ansicht im aktiven Outlook-Explorer eine Kalenderansicht wenn du das Makro ausführst, dann wird die aktuelle Zeit-Selektion mit in die Terminvorlage übernommen.
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