Outlook Kalender per Button öffnen

[Phaona]

Hallo,

ich möchte aus meinem Excel per Button den Outlook Kalender aufmachen, um einen Termin zu vereinbaren.

Outlook soll sich Vollbild öffnen, es soll die Wochenansicht der aktuellen Woche angezeigt werden und im Idealfall wird das gewählte Datum & Uhrzeit im Excel angezeigt werden (ob in einer Zelle oder zwei, soll mir egal sein :D)

Ein kleines "Legerl" gibt es noch: es sind mehrere Kalender verfügbar, ich möchte den vom Chef sehen ("Karl")

Kann mir jemand helfen? Ich hab schon ein paar Sachen in meiner Google-Suche gefunden, aber meine Anforderungen erfüllt keiner so recht, ich versteh den Code aber zu wenig, um ihn selbst anzupassen..
Hier der Code, der die Sache am Nähesten trifft:

Code:

Sub ShowCalendar()

    Dim olApp As Outlook.Application
    Dim olNs As Namespace


    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")


    If Err.Number = 429 Then
        Set olApp = CreateObject("Outlook.Application")
    End If


    On Error GoTo 0


    Set olNs = olApp.GetNamespace("MAPI")


    If olApp.ActiveExplorer Is Nothing Then
        olApp.Explorers.Add _
            (olNs.GetDefaultFolder(olFolderCalendar)).Activate
    Else
        Set olApp.ActiveExplorer.CurrentFolder = _
            olNs.GetDefaultFolder(olFolderCalendar)
        olApp.ActiveExplorer.Display
    End If


    Set olNs = Nothing
    Set olApp = Nothing


End Sub

Danke!

[schauan]

Hallöchen,

ich rück die Frage mal wieder in den Fokus

[Phaona]

Hallo :)

Scheint wohl niemand eine Antwort für mich zu haben 
Vielleicht sind meine Anforderungen doch zu utopisch, wer weiß..