Здравствуйте! На форме имеем кнопку, которая позволяет вставить отсканированный файл. Вот код:
Sub Click(Source As Button)
Dim ses As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim doc1 As NotesDocument
Dim object As NotesEmbeddedObject
Dim item As NotesItem
Dim item1 As NotesItem
Dim rtitem As NotesRichTextItem
Set uidoc=ws.CurrentDocument
If uidoc.EditMode Then
Call uidoc.Save
uidoc.EditMode=False
End If
Set doc1=uidoc.Document
'выбрать файл диалогом и сохранить в ричтекст поле
'выбрать файл
filenames = ws.OpenFileDialog( True, "Выберите файл (файлы)...",, "c:\")
If Isempty(filenames) Then
Msgbox {Вы не выбрали файлы!},16,{Стоп!}
End If
'положить вложения в ричтекст
Set rtitem=doc1.GetFirstItem("DocFile")
If rtitem Is Nothing Then
Set rtitem = New NotesRichTextItem( doc1, "DocFile" )
End If
Forall filename In filenames
Set object = rtitem.EmbedObject ( 1454, "", filename)
End Forall
Call doc1.Save(False,False)
Call uidoc.Close
Call ws.ViewRefresh
Call ws.EditDocument(False,doc1,False,,False,True)
End Sub
Можно ли вставить не файл, а ссылку на него, чтобы при клике на ссылку, открывался данный файл?
У нас получается вставить только ссылку на папку, да и то батником, к тому же в папке сотни документов и пока найдешь нужный, проходит очень много времени.
Заранее спасибо.
