Здравствуйте, Elena_, Вы писали:
А что за класс CDO я не нашел его в описании как его подключить к своему проекту ?
E_>Здравствуйте, gr_vl, Вы писали:
_>>Подскажите как в VB.net или vb
_>>можно обработать сохраненные в папку письма (файлы с расширением eml) и извлечь оттуда
_>>кто отправил
_>>когда отправил
_>>список файлов с вложениями (если есть)
_>>кому отправили
E_>Попробуйте что-то типа
E_>E_> Dim msg As CDO.Message
E_> Set msg = LoadMessageFromFile("C:\zzz.eml")
E_> MsgBox msg.To
E_> MsgBox msg.From
E_> MsgBox msg.BCC
E_> MsgBox msg.CC
E_> MsgBox msg.Subject
E_> MsgBox msg.HTMLBody
E_> MsgBox msg.TextBody
E_> Dim i As Integer
E_> For i = 1 To msg.Attachments.Count
E_> msg.Attachments(1).SaveToFile "C:\" & msg.Attachments(1).FileName
E_> Next i
E_> MsgBox msg.Attachments.Count
E_>
E_>E_>Function LoadMessageFromFile(Path As String) As Message
E_> Dim Stm As New Stream
E_> Stm.Open
E_> Stm.LoadFromFile Path
E_> Dim iMsg As New Message
E_> Dim iDsrc As IDataSource
E_> Set iDsrc = iMsg
E_> iDsrc.OpenObject Stm, "_Stream"
E_> Set LoadMessageFromFile = iMsg
E_>End Function
E_>
... << RSDN@Home 1.1.4 stable SR1 rev. 568>>
