Outlook 2013 - edite o assunto das reuniões recebidas

Question

Uso o Outlook 2013 e, como parte do meu trabalho, recebo reuniões (elas são encaminhadas para mim como parte do fluxo de trabalho). Realizo o trabalho instruído na descrição da reunião e, em seguida, arquive-os. Para minhas próprias anotações, edito o assunto da reunião. Isso foi fácil e feito exaxtly como você fez no Outlook 2010 - abra a reunião, digite a linha de assunto e salve. No entanto, isso aparentemente não é possível no Outlook 2013. Eu não posso digitar a linha de assunto e o botão de ações está oculto. O que estou fazendo errado?

Editar: por "ações" quero dizer o botão que aparece na faixa de opções. Eu não aceitei o convite de reunião beboere tentando editor; funcionou bem no Outlook 2010.

    

Answer 1

Isso está funcionando bem para mim. Eu testei com uma reunião e convidei que não aceitei.

Tudo que faço é fazer as alterações que quero e apertar ctrl - s

Às vezes, os comandos da faixa de opções ficam ocultos se a largura da tela não for grande o suficiente, mas isso não afeta o atalho do teclado.

    

Answer 2

Eu escrevi uma macro para realizar isso, já que não estou prendendo a respiração por M $ para restaurar essa funcionalidade que eles inexplicavelmente tiraram.

Como antes que essa funcionalidade fosse quebrada, o "item de reunião" de interesse deve estar aberto para alterar o assunto.

Esta macro pode ou não quebrar algo, possivelmente incluindo sincronizações com o servidor Exchange (mas se o servidor Exchange não puder lidar com isso, isso é outra coisa para M $ para quebrar).

Todas as isenções de responsabilidade se aplicam. Use por sua conta e risco. 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