Outlook 2013 - Betreff empfangener Besprechungen bearbeiten

Question

Ich verwende Outlook 2013 und erhalte im Rahmen meiner Arbeit Besprechungen (sie werden mir im Rahmen des Workflows weitergeleitet). Ich führe die in der Besprechungsbeschreibung angegebenen Arbeiten aus und archiviere sie dann. Für meine eigenen Notizen bearbeite ich die Betreffzeile der Besprechung. Das war einfach und funktionierte genauso wie in Outlook 2010 – öffnen Sie die Besprechung, geben Sie die Betreffzeile ein und speichern Sie. Dies ist in Outlook 2013 jedoch anscheinend nicht möglich. Ich kann die Betreffzeile nicht eingeben und die Aktionsschaltfläche ist ausgeblendet. Was mache ich falsch?

Bearbeiten: Mit „Aktionen“ meine ich die Schaltfläche, die auf dem Menüband angezeigt wird. Ich habe die Besprechungseinladung nicht angenommen, bevor ich versucht habe, sie zu bearbeiten. In Outlook 2010 hat das problemlos funktioniert.

Answer 1

Bei mir funktioniert das einwandfrei. Ich habe es mit einer Besprechungseinladung getestet, die ich nicht angenommen habe.

Ich nehme einfach die gewünschten Änderungen vor und drücke ctrl-s

Manchmal werden die Menübandbefehle ausgeblendet, wenn die Anzeigebreite nicht groß genug ist. Dies hat jedoch keine Auswirkungen auf die Tastenkombination.

Answer 2

Ich habe hierfür ein Makro geschrieben, da ich nicht darauf hoffe, dass M$ diese Funktionalität wiederherstellt, die sie mir unerklärlicherweise entzogen haben.

Da diese Funktion zuvor nicht funktionierte, muss das betreffende „Besprechungsthema“ geöffnet sein, um das Thema zu ändern.

Dieses Makro kann, muss aber nicht, etwas beschädigen, möglicherweise auch die Synchronisierung mit dem Exchange-Server (wenn der Exchange-Server damit jedoch nicht umgehen kann, muss M$ den Fehler erneut beheben).

Es gelten alle Haftungsausschlüsse. Die Nutzung erfolgt auf eigene Gefahr. YMMV usw.

Option Explicit
Sub change_subject_of_currently_open_meeting_request()
        Dim oMail As MailItem
        Dim oMtg As MeetingItem

        On Error Resume Next
        Err.Clear
        Set oMtg = ActiveInspector.currentItem
        If Err.Number <> 0 Then
            MsgBox "This macro works only in an open MEETINGItem." & vbCrLf & "Will now exit macro."
            Exit Sub
        End If
        On Error GoTo 0

        Dim strS, t, v, p, prompt, title
        strS = oMtg.Subject

        p = "Microsoft broke the ability to edit subject lines"
        p = p & vbCrLf & "of meeting requests in the 2013 version."
        p = p & vbCrLf
        p = p & vbCrLf & "This macro provides a way to do so."

        prompt = p
        title = "Provides the ability to edit meeting request subject lines, broken in Outlook 2013."
        t = InputBox(prompt, title, strS) ' prompt, title, default
        If t <> "" Then
           If t <> strS Then
              oMtg.Subject = t
           End If
        End If
End Sub