Добавьте "Запрос о прочтении квитанции" на ленту Outlook 2013/2016 (панель инструментов)

Question

В Office 2013 вы можете ответить «in-line». Это означает, что вам не нужно открывать новое окно с электронной почтой.

Если вы выбрали составление электронного письма в новом окне, у вас есть опция на вкладке "Параметры". И вы также можете добавить его в QAT (панель быстрого доступа). Это нормально!

Однако, если вы отвечаете в строке, откроется новая вкладка «Инструменты составления / Сообщение», и вам придется перейти к "Тегам" и активировать его оттуда в любое время. Я создал новую группу в этом «Инструменты составления / Сообщение», но опция "Запросить уведомление о прочтении" недоступна в "Все команды".

Знаете ли вы какие-нибудь обходные пути? Спасибо!

Answer 1

Вот небольшое расширение для обхода @thims. Вместо того, чтобы просто установить значение чтения чека, он переключает его и отображает состояние в течение 1 секунды в строке темы. Я не мог найти лучший способ, предложения приветствуются :)

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

Протестировано с Outlook 2016. Подсказки: откройте Visual Basic из параметров разработчика и вставьте код в ThisOutlookSession. Создайте новую группу в «Создать инструменты / Сообщение» и добавьте этот макрос ...

Не очень приятно, что Outlook зависает в течение периода отображения, но это гарантирует, что вы не отправляете электронное письмо с этой оскорбленной темой :)

Answer 2

Обходной путь должен использовать макрос VBA как это:

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

Теперь вы можете поместить кнопку, которая запускает этот макрос в вашей группе лент.

Answer 3

Другой вариант - добавить кнопку "Параметры сообщения" в новую группу на панели инструментов "Сообщение" в разделе "Инструменты составления".

Это то, что я сделал в своем Outlook 2016:- Перейдите в "Настройка ленты" и выберите "Вкладки инструментов" справа. - Затем разверните "Сообщение" в разделе "Инструменты создания" (есть два из них, я сделал это для обоих) и добавьте новую группу. - Слева выберите "Все команды", выберите "Параметры сообщения" и добавьте эту кнопку в новую группу.

Теперь при написании встроенного сообщения нажмите кнопку "Параметры сообщения" на ленте и выберите "Запросить чтение".