G
Guest
Раньше все получалось при помощи обработки:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
uidoc.editmode=True
Call uidoc.GotoField( "original" )
Call uidoc.CreateObject("Image", "Paper.Document")
End Sub
А теперь на строке Сall uidoc.CreateObject("Image", "Paper.Document") пишет мол недоступно приложение, работающие с объектом.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
uidoc.editmode=True
Call uidoc.GotoField( "original" )
Call uidoc.CreateObject("Image", "Paper.Document")
End Sub
А теперь на строке Сall uidoc.CreateObject("Image", "Paper.Document") пишет мол недоступно приложение, работающие с объектом.