Outlook 2013 - editar assunto de reuniões recebidas

Outlook 2013 - editar assunto de reuniões recebidas

Eu 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). Eu executo o trabalho instruído na descrição da reunião e depois arquivo-os. Para minhas próprias anotações, edito a linha de assunto da reunião. Isso foi fácil e feito exatamente como você fez no Outlook 2010 - abra a reunião, digite a linha de assunto e salve. No entanto, aparentemente isso não é possível no Outlook 2013. Não consigo digitar a linha de assunto e o botão de ações está oculto. O que estou fazendo de errado?

Editar: por "ações" quero dizer o botão que aparece na faixa de opções. Não aceitei o convite para a reunião por tentar ser editor; funcionou bem no Outlook 2010.

Responder1

Isso está funcionando bem para mim. Testei com um convite de reunião que não aceitei.

Tudo o que faço é fazer as alterações que desejo e clicar ctrl-s

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

Responder2

Eu escrevi uma macro para fazer isso, pois não estou prendendo a respiração para que M$ restaure essa funcionalidade que eles inexplicavelmente tiraram.

Como antes essa funcionalidade foi quebrada, o “item de reunião” de interesse deve estar aberto para mudar de assunto.

Esta macro pode ou não quebrar alguma coisa, possivelmente incluindo sincronizações com o servidor Exchange (mas se o servidor Exchange não puder lidar com isso, isso é outra coisa para M$ 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

informação relacionada