Может тогда проще будет воспользоваться
plainText$ = notesRichTextItem.GetUnformattedText( )
и разбирать строку?
был перерыв в программировании, сейчас торможу жутко
Вот смотрите кусок тела письма, которое приходит:
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">"пример письма"</div></div><div class="sp-body"><div class="sp-content">Event Time: 2011-03-04 10:42:00
Event Type: Environmental
Object of Reference: SubNetwork=ONRM_RootMo,SubNetwork=AXE,ManagedElement=BSC2,BssFunction=BSS_Manage
dFunction,BtsSiteMgr=POLUS2_ERUDA
Object Class: 8
Backup Object:
Backup Status:
Trend Indication:
Perceived Severity: Critical
Probable Cause: Different causes possible for same message
Specific Problem: RADIO X-CEIVER ADMINISTRATION BTS EXTERNAL FAULT
Так ка часть переменных нужных мне, находятся в одной строке. посчитала наиболее удобным разложить их построчно, вот поэтому и заменяю "," на Chr(13)
может нагородила, но делаю это так:
<!--shcode--><pre><code class='разбиение на абзацы'>Set rtitem = CurDoc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetFormattedText( True, 150 )
End If
Set MailBody = New NotesRichTextItem( CurDoc, "Body" )
Call MailBody.AppendText(Replace(plainText,",",Chr(13)) )
Call CurDoc.Save(True, False)[/CODE]
После чего получаю Body в новом варианте, из которого и хотелось бы извлечь построчно значение требуемых переменных (выделила жирным).
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">"Body построчно"</div></div><div class="sp-body"><div class="sp-content">
Event Time: 2011-03-04 10:44:00
Event Type: Environmental
Object of Reference: SubNetwork=ONRM_RootMo
SubNetwork=AXE
ManagedElement=BSC2
BssFunction=BSS_ManagedFunction
BtsSiteMgr=POLUS2_ERUDA
Object Class: 8
Backup Object:
Backup Status:
Trend Indication:
Perceived Severity: Cleared
Probable Cause: Different causes possible for same message
Specific Problem: RADIO X-CEIVER ADMINISTRATION BTS EXTERNAL FAULT