☰

在 Outlook 2013/2016 功能区（工具栏）中添加“请求已读回执”

tag-icon • tag-icon microsoft-outlook-2013
在 Outlook 2013/2016 功能区（工具栏）中添加“请求已读回执”

在 Office 2013 中，您可以“在线”回复。这意味着您不必打开新窗口来查看电子邮件。

如果您选择在新窗口中起草电子邮件，则您可以在“选项”选项卡中选择该选项。您还可以将其添加到 QAT（快速访问工具栏）。没问题！

但是，如果您在线回复，则将打开新选项卡“撰写工具/消息”，您必须转到“标签”并在需要时从那里激活它。我在“撰写工具/消息”中创建了一个新组，但“所有命令”中没有“请求已读回执”选项。

你知道有什么解决方法吗？谢谢！

答案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 在显示期间挂起并不是件好事，但这可以确保您不会发送带有滥用主题的电子邮件:)

答案2

解决方法是使用 VBA 宏，如下所示：

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

现在您可以在功能区组中放置一个运行此宏的按钮。

答案3

另一个选择是在“撰写工具”下的“消息”工具栏中的新组中添加“消息选项”按钮。

这是我在 Outlook 2016 中所做的： - 转到“自定义功能区”，然后选择右侧的“工具选项卡”。 - 然后展开“撰写工具”下的“消息”（有两个，我对两个都做了）并添加一个新组。 - 在左侧选择“所有命令”，然后选择“消息选项”，然后将此按钮添加到新组中。

现在，在编写内嵌消息时，单击功能区中的“消息选项”按钮并选择“要求已读回执”。

相关内容