Сохранить почту в файл msg, используя EWS API

Question

Я использую управляемый API-интерфейс Exchange Web Services 1.1 для подключения к Exchange Server 2010, а затем узнаю о новых полученных электронных письмах.Теперь я хочу сохранить копию MSG-файла в папке на диске.

Я не хочу использовать какую-либо платную стороннюю систему для интеграции.

Любая помощь будет оценена.

Answer 1

Если вы хотите сохранить файл в формате .eml, это можно сделать очень просто, просто используя EWS и никакие сторонние библиотеки.Файл .eml будет содержать всю ту же информацию и может быть открыт Outlook так же, как и .msg (а также другими программами).

message.Load(new PropertySet(ItemSchema.MimeContent));

MimeContent mc = message.MimeContent;
FileStream fs = new FileStream("c:\test.eml", FileMode.Create);

fs.Write(mc.Content, 0, mc.Content.Length);
fs.Close();

---

Код очистки:

message.Load(new PropertySet(ItemSchema.MimeContent));
var mimeContent = message.MimeContent;

using (var fileStream = new FileStream(@"C:\Test.eml", FileMode.Create))
{
    fileStream.Write(mimeContent.Content, 0, mimeContent.Content.Length);
}

Answer 2

Нет встроенной поддержки файлов MSG, использующих EWS.Это строго формат Outlook.

Спецификация MSG опубликована на http://msdn.microsoft.com/en-us/library/cc463912%28EXCHG.80%29.aspx. Это немного сложно понять, но выполнимо.Вам необходимо раскрыть все свойства сообщения, а затем сериализовать его в формат структурированного файла OLE.Это непростая задача.

В конце концов, вам, вероятно, лучше воспользоваться сторонней библиотекой, в противном случае это может оказаться сложной задачей.

Answer 3

Это предложение было опубликовано @mack в качестве комментария, но я думаю, что оно заслуживает своего места в качестве ответа, если только по каким-либо причинам, кроме форматирования и читабельности ответов и комментариев.

using (FileStream fileStream = 
    File.Open(@"C:\message.eml", FileMode.Create, FileAccess.Write)) 
{ 
    message.Load(new PropertySet(ItemSchema.MimeContent)); 
    MimeContent mc = message.MimeContent; 
    fileStream.Write(mc.Content, 0, mc.Content.Length); 
}

Answer 4

Вы можете легко получить доступ к содержимому MIME сообщения через message.MimeContent и сохранить сообщение в виде файла EML. Последние (2013 и 2016) версии Outlook смогут открывать файлы EML напрямую.

message.Load(new PropertySet(ItemSchema.MimeContent));
MimeContent mimcon = message.MimeContent;
FileStream fStream = new FileStream("c:\test.eml", FileMode.Create);
fStream.Write(mimcon.Content, 0, mimcon.Content.Length);
fStream.Close();

Если вам все еще нужно преобразовать в формат MSG, у вас есть несколько вариантов:

1) Формат файла MSG задокументирован - это файл хранилища OLE (IStorage). Смотри https://msdn.microsoft.com/en-us/library/cc463912(v=exchg.80).aspx

2) Используйте стороннюю оболочку MSG-файла, например, от Independentsoft: http://www.independentsoft.de/msg/index.html. Установка всех свойств, которые, как ожидает Outlook, может быть сложной.

3) Конвертируйте файл EML в MSG напрямую, используя Погашение :

set Session = CreateObject("Redemption.RDOSession")
set Msg = Session.CreateMessageFromMsgFile("c:\test.msg")
Msg.Import("c:\test.eml", 1024)
Msg.Save

Answer 5

Если формат eml является опцией, а php - язык, используйте base64_decode в Mimencontent перед сохранением в файл.

При использовании https://github.com/Heartspring/Exchange-Web-Services-for-PHP или https://github.com/hatsuseno/Exchange-Web-Services-for-PHP необходимо добавить

 $newmessage->mc = $messageobj->MimeContent->_;

в строке 245 или 247.

Answer 6

Если вы переходите от Outlook EntryID через VSTO (Hex) к EwsID, вам нужно посмотреть здесь: http://bernhardelbl.wordpress.com/2013/04/15/converting-entryid-to-ewsid-using-exchange-web-services-ews/

Спас меня. Я продолжал получать «Данные повреждены». сообщение.

Answer 7

Вот так я решил проблему с загрузкой из EWS сообщения электронной почты в формате .eml через код vbs

' This is the function that retrieves the message:
function CreaMailMsg(ItemId,ChangeKey)
Dim MailMsg
Dim GetItemSOAP,GetItemResponse,Content

    LogFile.WriteLine (Now() & "-" & ":CreaMailMsg:ID:" & ItemId)
    GetItemSOAP=ReadTemplate("GetItemMsg.xml")
    GetItemSOAP=Replace(GetItemSOAP, "<!--ITEMID-->", ItemId)   
    GetItemSOAP=Replace(GetItemSOAP, "<!--ITEMCHANGEKEY-->", ChangeKey)
    LogFile.WriteLine (Now() & ":GetItemSOAP:" & GetItemSOAP) 

    set GetItemResponse=SendSOAP(GetItemSOAP,TARGETURL,"",USERNAME,PASSWORD)
    ' Check we got a Success response
    if not IsResponseSuccess(GetItemResponse, "m:GetItemResponseMessage","ResponseClass") then
        LogFile.WriteLine (Now() & "-" & ":ERRORE:Fallita GetItemMsg:" & GetItemResponse.xml)
        Chiusura 1
    end if

'   LogFile.WriteLine (Now() & "-" & ":DEBUG:riuscita GetItemMsg:" & GetItemResponse.xml)
    Content = GetItemResponse.documentElement.getElementsByTagName("t:MimeContent").Item(0).Text
'   LogFile.WriteLine (Now() & ":Contenuto MIME" & Content)

    CreaMailMsg = WriteAttach2File(Content,"OriginaryMsg.eml")

'   MailMsg.close
    CreaMailMsg = true
end function
'###########################################################################
' These are the functions the save the message in .eml format
'###########################################################################
function WriteAttach2File(Content,nomeAttach)
Dim oNode,oXML,Base64Decode
    ' Read the contents Base64 encoded and Write a file  
    set oXML=CreateObject("MSXML2.DOMDocument")
    set oNode=oXML.CreateElement("base64")
    oNode.DataType="bin.base64"
    oNode.Text = Content
    Base64Decode = Stream_Binary2String(oNode.nodeTypedValue,nomeAttach)
    Set oNode = Nothing
    Set oXML = Nothing
end function
'###########################################################################
function Stream_Binary2String(binary,nomeAttach)
    Const adTypeText = 2
    Const adTypeBinary = 1
    Dim BinaryStream

    Set BinaryStream=CreateObject("ADODB.Stream")
    BinaryStream.Type=adTypeBinary' Binary
    BinaryStream.Open
    BinaryStream.Write binary   
    BinaryStream.Position=0
    BinaryStream.Type=adTypeText
    BinaryStream.CharSet = "us-ascii"
    Stream_Binary2String=BinaryStream.ReadText
    'msgbox Stream_Binary2String
    BinaryStream.SaveToFile ShareName & "\" & nomeAttach,2

    Set BinaryStream=Nothing
end function

Answer 8

Вы можете загрузить все вложения, используя EWS API и C #. Ниже приведен пример:

byte[][] btAttachments = new byte[3][]; //To store  3 attachment 

if (item.HasAttachments) {
    EmailMessage message = EmailMessage.Bind(objService, new ItemId(item.Id.UniqueId.ToString()), new PropertySet(BasePropertySet.IdOnly, ItemSchema.Attachments));

    noOfAttachment = message.Attachments.Count;

    // Iterate through the attachments collection and load each attachment.
    foreach(Attachment attachment in message.Attachments)
    {
        if (attachment is FileAttachment)
        {
            FileAttachment fileAttachment = attachment as FileAttachment;
            // Load the file attachment into memory and print out its file name.
            fileAttachment.Load();
            //Get the Attachment as bytes
            if (i < 3) {
                btAttachments[i] = fileAttachment.Content;
                i++;
            }
        }
        // Attachment is an item attachment.
                    else
        {
            // Load attachment into memory and write out the subject.
            ItemAttachment itemAttachment = attachment as ItemAttachment;
            itemAttachment.Load(new PropertySet(EmailMessageSchema.MimeContent));
            MimeContent mc = itemAttachment.Item.MimeContent;
            if (i < 3) {

                btAttachments[i] = mc.Content;
                i++;
            }
        }
    }
}

Код выше преобразует все вложения в байты. Получив байты, вы можете конвертировать байты в нужный вам формат. Чтобы преобразовать байты в файлы и сохранить на диске, перейдите по ссылкам ниже: Запись байтов в файл http://www.digitalcoding.com/Code-Snippets/C-Sharp/C-Code-Snippet-Save-byte-array-to-file.html