Общие вопросы > Разработка приложений
поле Body
Alla Makshanova:
Давайте разберем, может в коде что-то забыто
'Рассматриваем документ
While Not(doc Is Nothing)
' Задаем значение mime
Set mime = doc.GetMIMEEntity
' Проходим в цикл
If Not(mime Is Nothing) Then
'Строчка состоит из множества частей? Если да, то Set child = mime.GetFirstChildEntity выведет нужное поле. Иначе в цикл не проходим, переходим к Else
If mime.ContentType = "multipart" Then
n = 1
Set child = mime.GetFirstChildEntity
While Not(child Is Nothing)
'обработка поля
n = n + 1
Set child = child.GetNextSibling
Wend
Else ' if not multipart
'Должно выводиться это сообщение, здесь надо обработать первое поле
Messagebox "Not multipart",, _
doc.GetItemValue("Subject")(0)
End If
Else ' if not MIME
Messagebox "Not MIME",, doc.GetItemValue("Subject")(0)
End If
Messagebox нигде не выводится?
K85:
сообщения не выводит, все так и сделано, но первое поле не в какую не хочет брать
Alla Makshanova:
Попробуйте отследить вывод полей Messagebox-м
Messagebox "MIME",, doc.GetItemValue("Subject")(0)
Set mime = doc.GetMIMEEntity
If Not(mime Is Nothing) Then
Messagebox "MIME isn't Nothing"
If mime.ContentType = "multipart" Then
Messagebox "MIME is multipart"
n = 1
Set child = mime.GetFirstChildEntity
While Not(child Is Nothing)
Call child.DecodeContent
Messagebox child.ContentAsText,,doc.GetItemValue("Subject")(0)
'печатаем содержимое поля
n = n + 1
Set child = child.GetNextSibling
Wend
K85:
или я уже просто не могу ничего понять или.... :-\
Проверяю по messagbox
1. MIme и название (правильное)
2. MIME isn't Nothing
3. MIME is multipart
4. только 2 поля из четырех :'( . Сообщение только о 2-х полях
Alla Makshanova:
Проверьте, может child тоже является multipart. И какое значение имеет счетчик n после выполнения агента?
Messagebox "Child is multipart"
Навигация
Перейти к полной версии