Re: Разбор полей письма *.eml
От: Elena_ Россия  
Дата: 01.08.05 20:14
Оценка:
Здравствуйте, gr_vl, Вы писали:

_>Подскажите как в VB.net или vb

_>можно обработать сохраненные в папку письма (файлы с расширением eml) и извлечь оттуда
_>кто отправил
_>когда отправил
_>список файлов с вложениями (если есть)
_>кому отправили

Попробуйте что-то типа
    Dim msg As CDO.Message
    Set msg = LoadMessageFromFile("C:\zzz.eml")
    
    MsgBox msg.To
    MsgBox msg.From
    MsgBox msg.BCC
    MsgBox msg.CC
    MsgBox msg.Subject

    MsgBox msg.HTMLBody
    MsgBox msg.TextBody
      
    Dim i As Integer
    For i = 1 To msg.Attachments.Count
        msg.Attachments(1).SaveToFile "C:\" & msg.Attachments(1).FileName
    Next i
    
    
    MsgBox msg.Attachments.Count


Function LoadMessageFromFile(Path As String) As Message
    Dim Stm As New Stream
    Stm.Open
    Stm.LoadFromFile Path
    Dim iMsg As New Message
    Dim iDsrc As IDataSource
    Set iDsrc = iMsg
    iDsrc.OpenObject Stm, "_Stream"
    Set LoadMessageFromFile = iMsg
End Function
Пользователь — друг программиста!
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.