Adicione “Request read receipt” à faixa do Outlook 2013/2016 (barra de ferramentas)

Question

No Office 2013, você pode responder "in-line". Ou seja, você não precisa abrir uma nova janela com o e-mail.

Se você escolheu esboçar o email em uma nova janela, então você tem a opção na aba "Opções". E você também pode adicioná-lo ao QAT (barra de ferramentas de acesso rápido). Tudo bem!

No entanto, se você estiver respondendo em linha, a nova aba "Compor ferramentas / mensagem" será aberta, e você terá que ir para "Tags" e ativá-la a partir dela sempre que quiser. Eu criei um novo grupo em que "Compor ferramentas / mensagem", mas a opção "Solicitar recibo de leitura" não está disponível em "Todos os comandos".

Você conhece alguma solução alternativa? Obrigado!

    

Answer 1

Aqui está uma pequena extensão para a solução @thims. Em vez de apenas definir o valor de recibo de leitura, ele alterna e exibe o status por 1 segundo na linha de assunto . Não consegui encontrar uma maneira melhor, sugestões bem-vindas:)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

' toggle ReadReceiptRequested for ActiveInlineResponse
Sub RequestReadReceipt()
    Dim oMail As MailItem
    Set oMail = ActiveExplorer.ActiveInlineResponse
    If Not oMail Is Nothing Then
        oMail.ReadReceiptRequested = Not oMail.ReadReceiptRequested
        TempSubject = oMail.Subject
        oMail.Subject = "ReadReceiptRequested: " & oMail.ReadReceiptRequested
        DoEvents
        Sleep 1000
        oMail.Subject = TempSubject
    End If
End Sub

Testado com o Outlook 2016. Dicas: abra o Visual Basic nas opções do desenvolvedor e cole o código em ThisOutlookSession. Crie um novo grupo em "Compor ferramentas / mensagem" e adicione essa macro ...

Não é tão bom que o Outlook trava durante o período de exibição, mas isso garante que você não envie o e-mail com esse assunto abusado:)

    

Answer 2

A solução alternativa é usar a macro VBA assim:

Sub RequestReadReceipt()
    Set objItem = ActiveExplorer.ActiveInlineResponse
    If Not objItem Is Nothing Then
        objItem.ReadReceiptRequested = True
    End If
End Sub

Agora você pode colocar um botão que execute essa macro no grupo da faixa de opções.

    

Answer 3

Outra opção é adicionar o botão "Message Options" em um novo grupo na barra de ferramentas "Message" em "Compose Tools".

Foi o que fiz no meu Outlook 2016: - Vá para "Personalizar a Faixa de Opções" e escolha "Guias de ferramentas" à direita. - Em seguida, expanda "Message" em "Compose Tools" (há dois deles, eu fiz isso para ambos) e adicione um novo grupo. - À esquerda, selecione "Todos os comandos" e selecione "Opções de mensagem" e adicione esse botão ao novo grupo.

Agora, ao escrever uma mensagem em linha, clique no botão "Opções de mensagem" na faixa de opções e selecione "Solicitar recibo de leitura".