Приветсвую
Подскажите как в VB.net или vb
можно обработать сохраненные в папку письма (файлы с расширением eml) и извлечь оттуда
кто отправил
когда отправил
список файлов с вложениями (если есть)
кому отправили
С ув Григорий (gr_vl@mail.ru)
... << RSDN@Home 1.1.4 stable SR1 rev. 568>>
Здравствуйте, 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
Здравствуйте, 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>>
