无法将“Microsoft.Exchange.WebServices.Data.EmailMessage”类型的对象转换为“Microsoft.Office.Interop.Outlook.MailItem”类型

Question

我的目标是将昨天的邮件复制到我计算机中的外部文件夹中，我在"mailitem = Item" 这一行收到了这个错误。

下面是我的代码：

    Dim service As New ExchangeService(ExchangeVersion.Exchange2010_SP2)
    service.Credentials = New WebCredentials("user", "Password", "domain")
    service.AutodiscoverUrl("acce@pac.com.in")
    Dim pageSize As Integer = 100
    Dim offset As Integer = 0
    Dim view As New ItemView(pageSize, offset)
    Dim returnValue As FindItemsResults(Of Item)
    returnValue = service.FindItems(WellKnownFolderName.Inbox, view)
    Dim subject As String
    Dim receiveDate As Date
    Dim maxDate As Date = getLatestDate()
    For Each Item In returnValue
        receiveDate = Item.DateTimeReceived
        If receiveDate > maxDate Then
            Dim strDirPLE As String
            Dim strDirCust As String
            Dim strSaveName As String
            strDirPLE = "D:\test1\"
            strDirCust = "D:\test2\"
            Dim mailitem As Microsoft.Office.Interop.Outlook.MailItem
            mailitem = Item
            subject = Item.Subject.Replace(":", "")
            subject = Item.Subject.Replace(".", "")
            strSaveName = subject & Format(Now, " ddmmyyyyhhnnss") & ".msg"
             If (mailitem.From.Contains("@pac.com.in")) Then
                If (Item.Subject.Contains("CId") AndAlso Item.Subject.Contains("pId")) Then

                    mailitem.SaveAs(strcon1)
                Else
                    mailitem.SaveAs(strcon2)
                End If
            End If

        End If
        Exit For
    Next
End Sub

错误

无法将“Microsoft.Exchange.WebServices.Data.EmailMessage”类型的对象转换为“Microsoft.Office.Interop.Outlook.MailItem”类型

Answer 1

我建议将其保存为 EML 而不是 MSG。抱歉 vb.net 不是我的第一语言。

Shared Sub ExportMIMEEmail(service As ExchangeService)
    Dim inbox As Folder = Folder.Bind(service, WellKnownFolderName.Inbox)
    Dim view As New ItemView(1)
    view.PropertySet = New PropertySet(BasePropertySet.IdOnly)
    ' This results in a FindItem call to EWS.
    Dim results As FindItemsResults(Of Item) = inbox.FindItems(view)
    For Each item As var In results
        Dim props As New PropertySet(EmailMessageSchema.MimeContent)
        ' This results in a GetItem call to EWS.
        Dim email = EmailMessage.Bind(service, item.Id, props)
        Dim emlFileName As String = "C:\export\email.eml"
        ' Save as .eml.
        Using fs As New FileStream(emlFileName, FileMode.Create, FileAccess.Write)
            fs.Write(email.MimeContent.Content, 0, email.MimeContent.Content.Length)
        End Using
    Next
End Sub

这是从https://msdn.microsoft.com/en-us/library/office/dn672317%28v=exchg.150%29.aspx?f=255&MSPPError=-2147217396修改的