Outlook 2013: editar el tema de las reuniones recibidas

Question

Utilizo Outlook 2013 y, como parte de mi trabajo, recibo reuniones (me las reenvían como parte del flujo de trabajo). Realizo el trabajo indicado en la descripción de la reunión y luego los archivo. Para mis propias notas, edito la línea de asunto de la reunión. Esto fue fácil y se hizo exactamente como lo hizo en Outlook 2010: abra la reunión, escriba la línea de asunto y guárdela. Sin embargo, aparentemente esto no es posible en Outlook 2013. No puedo escribir la línea de asunto y el botón de acciones está oculto. ¿Qué estoy haciendo mal?

Editar: por "acciones" me refiero al botón que aparece en la cinta. No he aceptado la invitación a la reunión antes de intentar editar; funcionó bien en Outlook 2010.

Answer 1

Esto está funcionando bien para mí. Lo probé con una invitación a una reunión que no acepté.

Todo lo que hago es hacer los cambios que quiero y presionar ctrl-s

A veces, los comandos de la cinta se ocultan si el ancho de la pantalla no es lo suficientemente grande, pero eso no afecta el método abreviado de teclado.

Answer 2

Escribí una macro para lograr esto, ya que no voy a contener la respiración para que M$ restaure esta funcionalidad que inexplicablemente quitaron.

Como antes, esta funcionalidad se rompió, el "elemento de la reunión" de interés debe estar abierto para cambiar el tema.

Esta macro puede o no romper algo, posiblemente incluyendo sincronizaciones con el servidor Exchange (pero si el servidor Exchange no puede manejarlo, eso es algo más que M$ debe deshacer).

Se aplican todas las exenciones de responsabilidad. Úselo bajo su propio riesgo. YMMV, etc.

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