P
PavelT100
Lotus Script.
...
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument ' главный документ на клиенте
Set uidoc = ws.CurrentDocument
uidoc.EditMode = True
Call uidoc.GotoField( "BR" )
Dim doc As NotesDocument ' главный документ на сервере
Set doc = uidoc.Document
Dim rti As NotesRichTextItem ' поле BugReferences для временного хранения ссылок
Set rti = doc.GetFirstItem("BR")
If rti Is Nothing Then
Messagebox "Document contains no links",, "No links"
Exit Sub
End If
.....
В форме в поле "BR" вношу ссылку на какой-то документ, но пока текущий документ не сохранен, вышеприведенный скрипт закончится сообщением "Document contains no links"
Как можно добраться до содержимого поля если документ еще не сохранен ?
...
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument ' главный документ на клиенте
Set uidoc = ws.CurrentDocument
uidoc.EditMode = True
Call uidoc.GotoField( "BR" )
Dim doc As NotesDocument ' главный документ на сервере
Set doc = uidoc.Document
Dim rti As NotesRichTextItem ' поле BugReferences для временного хранения ссылок
Set rti = doc.GetFirstItem("BR")
If rti Is Nothing Then
Messagebox "Document contains no links",, "No links"
Exit Sub
End If
.....
В форме в поле "BR" вношу ссылку на какой-то документ, но пока текущий документ не сохранен, вышеприведенный скрипт закончится сообщением "Document contains no links"
Как можно добраться до содержимого поля если документ еще не сохранен ?