Сохранить сообщение Outlook как неполное (тело отсутствует, вложения не открываются, ...) - PullRequest
Новая
       106

Сохранить сообщение Outlook как неполное (тело отсутствует, вложения не открываются, ...)

0 голосов
/ 20 апреля 2020

Я пытаюсь сохранить почтовые сообщения outlook в SQL -BLOB-поле как eml (или неформатированный) контент.

У меня есть форма в MS Access для получения писем из кода outlook: 

Dim objitem As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set objMapiFolder = objOutlook.Session.Folders("USER").Folders("Posteingang")
Dim inboundemail As ADODB.Recordset
Set inboundemail = New ADODB.Recordset
inboundemail.Open "Inbound_EMail_Buffer", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Set MailList = objMapiFolder.Items

Dim senderMail As String
Dim ReceiverMail As String
FillAddress
Dim SAfeMailItem
Set SAfeMailItem = CreateObject("Redemption.SafeMailItem")

For Each objitem In MailList
    If objitem.Class = olMail Then
        With objitem
            inboundemail.AddNew
            Select Case .SenderEmailType
            Case "SMTP"
                senderMail = .SenderEmailAddress
            Case "EX"
                senderMail = FindAddress(.SenderEmailAddress)
            End Select
            inboundemail!From = Left(Chr(34) & .SenderName & Chr(34) & " <" & senderMail & ">", 80)
            inboundemail!To = .To
            inboundemail!CC = .CC
            inboundemail!Subject = Left(.Subject, 80)
            inboundemail!DateReceived = .ReceivedTime
            inboundemail!uid = .EntryId
            SAfeMailItem.Item = objitem
            x = SAfeMailItem.SaveAs("c:\temp\" & .EntryId & ".eml", olRFC822)
            inboundemail!Size = .Size
            inboundemail.Update
        End With
    End If
Next objitem
Me.ctlDocuments.Requery
Set objitem = Nothing
Set objOutlook = Nothing

К сожалению, исходная почта не сохранена завершенной это почта в outlook

это сохраненная электронная почта

сохранен eml после 5.23

...