Zum Inhalt springen
Hilfe zu Outlook, Thunderbird, KuNoMail & Co.

Terminvorlage

Überblick

Status
Beantwortet
Gefragt von
irol
Gefragt am
Antworten
2
Letzte Antwort
von Mailhilfe

Frage

irol fragte am

Hallo,

ich möchte gerne eine Terminvorlage für einen anderen Kalender erstellen und diesen ins Menüband integrieren.

 

1. Lösungsversuch:

Ich habe eine Vorlage als .oft erstellt und diese per Makro ins Menüband integriert.

Problem: Der Termin wird in meinem Standardkalender erstellt.

Kann man in einer Outlook-Vorlage den Standardkalender ändern?

 

2. Lösungsversuch:

Ich habe ein Formular erstellt. Dieses speichert den Termin im richtigen Kalender.

Problem: Um das Formular auszuwählen, sind viele Schritte notwendig (Start -> Neue Elemente -> Weitere Elemente -> Formular auswählen -> Suchen in: auswählen -> Formular öffnen). Der Schnellzugriff erspart zwar einige Schritte, ist aber dennoch zu umständlich.

Lässt sich ein Formular auch per Makro öffnen, sodass ich es wie meine .oft-Vorlagen ins Menüband hinzufügen kann?

 

Ich arbeite mit Outlook 2016.

Vielen Dank für eure Hilfe!

2 Antworten

2 Antworten anzeigen - 1 bis 2 (von insgesamt 2)

  2. Antwort 2 Mailhilfe schrieb am

    zu1.
    Ja, es ist möglich, den Standardkalender in einer Outlook-Vorlage zu ändern. Sie können dies tun, indem Sie im Code des Makros, das die Vorlage erstellt, den gewünschten Kalender auswählen und als Zielkalender festlegen.

    Sub CreateAppointmentInSpecificCalendar()
Dim objAppointment As Outlook.AppointmentItem
Set objAppointment = Application.CreateItem(olAppointmentItem)
With objAppointment
.Start = #3/1/2022 8:00:00 AM#
.End = #3/1/2022 9:00:00 AM#
.Subject = "Test Appointment"
.Location = "Test Location"
.Body = "Test Appointment Body"
.ReminderSet = True
.ReminderMinutesBeforeStart = 15
.Save
End With
objAppointment.Move "CalendarName"
End Sub

    Es ist möglich, ein Formular über ein Makro zu öffnen und es in das Menüband zu integrieren. Sie können ein Makro erstellen, das das Formular öffnet und es dem Menüband hinzufügt, indem Sie es als Befehl hinzufügen.

    Sub OpenFormAndAddToRibbon()
Dim objForm As Outlook.FormDescription
Set objForm = Application.Session.Forms.Item("FormName")

objForm.Display

CustomizationContext = Application.ActiveExplorer
CommandBars("TabHome").Controls.Add(Type:=msoControlButton, ID:=objForm.Item.CommandBar, Before:=1)
CustomizationContext = Nothing
End Sub

    Dieser Code öffnet das Formular „FormName“ und fügt es zu dem „Home“ Tab des Menübands hinzu. Sie können den Namen des Tabs anpassen und die Position des Befehls im Menüband ändern, indem Sie die Eigenschaft „Before“ anpassen.

2 Antworten anzeigen - 1 bis 2 (von insgesamt 2)
  • Sie müssen angemeldet sein, um zu diesem Thema eine Antwort verfassen zu können.