使用 EWS 托管 API 检索发送的消息答案

【问题标题】：Retrieve sent message with EWS Managed API使用 EWS 托管 API 检索发送的消息
【发布时间】：2017-12-09 02:18:26
【问题描述】：

我正在尝试使用 EWS 托管 API 发送消息，我需要确认消息已发送并注册一些信息（例如发送日期和时间）。但是，我得到一个异常，如下所示。我的问题是：发送消息后如何检索EmailMessage 对象？

非常感谢！

Private Sub NovaMensagemToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NovaMensagemToolStripMenuItem.Click
    Dim em As New EmailMessage(serviceClient.Service)
    em.Subject = "Test"
    em.Body = "This is a test."
    em.ToRecipients.Add("mytestmail@test.com")
    em.SendAndSaveCopy(WellKnownFolderName.SentItems)
    em.Load() 'Exception: System.InvalidOperationException: This operation can't be performed because this service object doesn't have an Id.
    MsgBox(em.DateTimeSent)
End Sub

【问题讨论】：

标签： vb.net exchangewebservices ews-managed-api

【解决方案1】：

显然，只需在发送前保存草稿：

Private Sub NovaMensagemToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NovaMensagemToolStripMenuItem.Click
    Dim em As New EmailMessage(serviceClient.Service)
    em.Subject = "Test"
    em.Body = "This is a test."
    em.ToRecipients.Add("mytestmail@test.com")
    em.Save(WellKnownFolderName.Drafts) '<--- added this
    em.SendAndSaveCopy(WellKnownFolderName.SentItems)
    em.Load() 'no exception now
    MsgBox(em.DateTimeSent)
End Sub

【讨论】：