Здравствуйте, 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