Получение Поля Body

[k85]

Необходимо из письма вынести в текстовый файл поле Body, письмо пришло с интернета. Получается в документе поле Body, состоит из 4-5 и более частей. Например, в свойствах показывает 4 поля Body у всех Data Type: MIME Part. Но в файл выводится только 2 поля, то есть не вся необходимая информация

Dim child As NotesMIMEEntity
Dim s As New NotesSession
s.ConvertMIME = False 
Set dc = db.UnprocessedDocuments
Set mime = doc.GetMIMEEntity
If Not(mime Is Nothing) Then
If mime.ContentType = "multipart" Then
n = 0
Set child = mime.GetFirstChildEntity
While Not(child Is Nothing)
nP = child.ContentType
nP2 = child.ContentSubType
....
Print #fileNum%,"Body: " &nP1 & nP & ....

n = n + 1

Set child = child.GetNextSibling
Wend

Else

Messagebox "Not multipart",, doc.GetItemValue("Body")(0)

End If


Else 		' не MIME

'Messagebox

End If

Помогите , пожалуйста, что не верно?

 

[nvyush]

Помогите , пожалуйста, что не верно?

Количество полей Body != количество частей MIME. М.б. у Вас всё правильно работает.

 

[k85]

Количество полей Body != количество частей MIME. М.б. у Вас всё правильно работает.

просто если смотреть поле Body

	Set pole = doc.getfirstitem("Body")
Print #fileNum%,"Body: "& pole.text

то поле пустое, а информации в письме намного больше в Body, чем он выдает

 

[k85]

скажите, пожалуйста, а можно вообще как-то получить данные из поля HTMLTempSource, его видно только из view->show-> page source
Как взять оттуда всю информацию?
Просто необходимо получить текстовый файл именно в таком виде, а там получается поле Subject имеет другую кодировку, и соответственно, не так отображается как в самом письме, да еще и в некоторых других полях тоже не так отображается

 

[k85]

или может кто-то подскажет, как в тестовом документе отобразить данные в таком же виде, как в Source - From: =?Windows-1251?B?....
Subject: ?Windows-1251?B?...
в самом письме данные верно отображаются на русском. Но мне надо, чтобы название было в такой же кодировке, как и при отображении Page Source. Как правильно это сделать?