让 VBA 在 MS Outlook 电子邮件中启用传递和阅读回执

Question

我正在使用 Interop 通过 Outlook 发送电子邮件，但我无法指定或启用送达回执和已读回执。

我已经在整个网络上进行了搜索，试图看看这是否可行，但到目前为止，在我的代码生成的电子邮件中操作 Outlook 以启用这些选项方面，我一无所获。

代码：

Dim body As String
Dim objOutlook, objEmail
objOutlook = CType(CreateObject("Outlook.Application"), Outlook.Application)
objEmail = objOutlook.CreateItem(Outlook.OlItemType.olMailItem)
body = "Dear Recipient..."
With objEmail
    .Subject = "Subject..."
    .To = EmailAddresses()
    .Body = body
    '.Attachments.Add(sFilename)
    .Importance = Outlook.OlImportance.olImportanceHigh
    '
    '.**PROPERTIES TO SET DELIVERY AND READ RECEIPTS???**
    '
    'Show on screen
    .Display(True)
    'Uncomment the below to actually send the email
    '.Send()
End With

我的电子邮件工作正常，但我想启用阅读和送达回执选项。有人知道怎么做吗？据我所知，它可能与 _MailItem.OriginatorDeliveryReportRequested 属性有关，但我不太确定如何正确使用它。

谢谢

Answer 1

将MailItem.ReadReceiptRequested 和MailItem.OriginatorDeliveryReportRequested 属性设置为true。