获取VB以启用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。