Public Sub Kalender_Formular_oeffnen()
   Set myOLApp = CreateObject("Outlook.Application")
   Set myNameSpace = myOLApp.GetNamespace("MAPI")
   Set MyFolder = myNameSpace.GetDefaultFolder(olFolderCalendar)
   Set MyItems = MyFolder.Items
   
   ' Hier wird die Besprechungsanfrage/Termin zugewiesen "Mein_Form"
   ' Das Formular muss zuerst veröffentlicht werden
   Set MyItem = MyItems.Add("ipm.Appointment.Mein_Form")
   MyItem.Display
End Sub

Sub Mein_Button2()
   Dim cmbStandard As CommandBar
   Dim Zaehler As Byte
   Set cmbStandard = Application.ActiveExplorer.CommandBars("Standard")
      With cmbStandard.Controls.Add
         .BeginGroup = True
         .Caption = "Mein Terminformular"
         .Style = msoButtonCaption
         .OnAction = "Kalender_Formular_oeffnen"
      End With
   
   ' Den Button an 2. Stelle positionieren
   Zaehler = Application.ActiveExplorer.CommandBars("Standard").Controls.Count
   Application.ActiveExplorer.CommandBars("Standard").Controls(Zaehler).Move Before:=2
   
   ' Linie nach dem Button einfügen
   Application.ActiveExplorer.CommandBars("Standard").Controls(3).BeginGroup = True
End Sub