Hallo zusammen,

ich habe unter Outlook 2010 einen VBA.-Code, der mir das aktuell im Kalender ausgewählte Datum ausließt. Dieser Code läuft unter 2013 nicht: Code 1

Ich habe dann gefunden, dass unter 2013 die CommandBarButtons nicht mehr angesprochen wwerden können. Ich habe den Code dann umgebaut (Code 2). Dieser zweite Code läuft auch fehlerfrei durch und erstellt einen temporären Termin aus dem ich das Datum ziehen kann. Allerdings ersellt dieser Code keinen Termin am  ausgewählten Tag sondern immer zum aktuellen Tagesdatum. Das brauche ich nicht. Ich möchte den Tag haben, den der Benutzer im Kalender angeklickt hat.

Ich hoffe, ich konnte mich verständlich ausdrücken. Ich bin für jeden Tipp dankbar

Regina

Code 2: läuft in 2010

Public Function AktivesDatum() As Date
' Funktion erstellt einen neuen Termin am aktuellen Tag.
' Das Startdatum wird aus dem neuen Termin ausgelsen, um das aktuelle im Kalander ausgewählte Datum zu  ermitteln
' Der neue Termin wird ohne Speichern geschlossen.

    Dim objTemp As AppointmentItem, objExplorer As Explorer
    Dim objCD As CommandBarButton
    Dim objFolder As Folder
    Dim objCB As CommandBarButton
    
    Set objExplorer = ActiveExplorer
    
    If Not objExplorer Is Nothing Then
        Set objFolder = objExplorer.CurrentFolder
        If objFolder.DefaultItemType = olAppointmentItem Then
           Set objCB = objExplorer.CommandBars.FindControl(, 1106)
            If Not objCB Is Nothing Then
                objCB.Execute
                Set objTemp = Application.ActiveInspector.CurrentItem
                AktivesDatum = objTemp.Start
                objTemp.Close (olDiscard)
            End If
        End If
    End If
    Set objTemp = Nothing
    Set objCD = Nothing
    Set objFolder = Nothing
    Set objExplorer = Nothing
End Function

Code 2: läuft in 2013 liefert aber immer das aktuelle Tagesdatum

Public Function AktivesDatum() As Date
' Funktion erstellt einen neuen Termin am aktuellen Tag.
' Das Startdatum wird aus dem neuen Termin ausgelsen, um das aktuelle im Kalander ausgewählte Datum zu  ermitteln
' Der neue Termin wird ohne Speichern geschlossen.

    Dim objTemp As AppointmentItem, objExplorer As Explorer
    Dim objCD As CommandBarButton
    Dim objFolder As Folder
    Dim objCB As CommandBarButton
    Dim termin As AppointmentItem
    
    Set objExplorer = ActiveExplorer
    
    If Not objExplorer Is Nothing Then
        Set objFolder = objExplorer.CurrentFolder
        If objFolder.DefaultItemType = olAppointmentItem Then
            Set termin = objFolder.Items.Add
            AktivesDatum = termin.Start
            termin.Close (olDiscard)
        End If
    End If
    Set objTemp = Nothing
    Set objCD = Nothing
    Set objFolder = Nothing
    Set objExplorer = Nothing
End Function