A
aguch
Друзья ! Попал в тупиковую ситуация не могу понять куда копать...
есть vbs- скрипт, который проверяет почтовую базу, находит данные (регулярные выражения) и перекладывает их в БД...
К содержимому обращается собственно st=doc.GetItemValue("Body")(0). Все бы ничего результат чтения некоторых писем выглядит (st) примерно так: " C.htm image001.jpg image002.png ", хотя письмо читабельно и данные содержит.
Как вложение C.htm не извлекается (секция FILE отсутствует). Как прочитать заветную строчку не представляю. Выглядит это вкратце так:
Спасибо!
есть vbs- скрипт, который проверяет почтовую базу, находит данные (регулярные выражения) и перекладывает их в БД...
К содержимому обращается собственно st=doc.GetItemValue("Body")(0). Все бы ничего результат чтения некоторых писем выглядит (st) примерно так: " C.htm image001.jpg image002.png ", хотя письмо читабельно и данные содержит.
Как вложение C.htm не извлекается (секция FILE отсутствует). Как прочитать заветную строчку не представляю. Выглядит это вкратце так:
Код:
Set session = CreateObject("Lotus.NotesSession")
Call session.Initialize("******")
server = session.GETENVIRONMENTSTRING("MailServer", True)
mailfile = session.GETENVIRONMENTSTRING("MailFile", True)
Set Db = session.GetDatabase(server, mailfile)
Set dc = db.AllDocuments
Set doc = dc.GetLastDocument()
While (Not(doc Is Nothing))
If (doc.HasItem("Body") Or doc.HasItem("Subject")) And doc.HasItem("From") Then
st=doc.GetItemValue("Body")(0)
....
End If
Wend
Спасибо!