"Рядом стоящее" оно в форме, в документе лучше ориентироваться на имя. Т.е. если поля с вложениями называются "D", "D1" ..., то поля с признаками наличия вложения назвать, например "FD", "FD1" ... .
Посмотрите в справке про классы NotesDocument, NotesDocumentCollection, NotesRichTextItem, имеющихся там примеров должно быть достаточно для решения данной задачи.
Ну Вот что Я придумал
,
Sub Click(Source As Button)
Dim session As New notessession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim namefield As String
Dim namefield(8) As String
names(0)= "D0"
names(1)= "D1"
names(2)= "D2"
names(3)= "D3"
names(4)= "D4"
names(5)= "D5"
names(6)= "D6"
names(7)= "D7"
names(8)= "D8"
Do i1=1 to UBound(namefield,2) - Ошибка ???
Set rt =doc.getfiestitem(names(i1))
i=o
Forall v1 In V
i=it1
End
End Forall
doc.nrt=i
End Sub
Что дальше??
Этим скриптом Я хочу перебрать в форме поля (D0,D1,D2...D8
RTF) и:
- если в поле D0
- если в поле D1.... и тд.
есть фложение, то рядом у каждого (D0, D1, ......D8) передать значение полю RD0,RD1,RD2,......RD8, "1"
А потом просто отображать в представлении значения полей RD..,"0" и "1"
Что не так поправте.
Добавлено: Ну Вот что Я придумал smile.gif, Посмотрите???
Sub Click(Source As Button)
Dim session As New notessession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim namefield As String
Dim namefield(8) As String
names(0)= "D0"
names(1)= "D1"
names(2)= "D2"
names(3)= "D3"
names(4)= "D4"
names(5)= "D5"
names(6)= "D6"
names(7)= "D7"
names(8)= "D8"
Do i1=1 to UBound(namefield,2) - Ошибка ???
Set rt =doc.getfiestitem(names(i1))
i=o
Forall v1 In V
i=it1
End
End Forall
doc.nrt=i
End Sub
Что дальше??
Этим скриптом Я хочу перебрать в форме поля (D0,D1,D2...D8 RTF) и:
- если в поле D0
- если в поле D1.... и тд.
есть фложение, то рядом у каждого (D0, D1, ......D8) передать значение полю RD0,RD1,RD2,......RD8, "1"
А потом просто отображать в представлении значения полей RD..,"0" и "1"
Что не так поправте.