Форум продуктов IBM Lotus

Продукты IBM Lotus => IBM Lotus Notes & Domino => Тема начата: GrDaniil от 25 Август 2010, 17:23:05

Название: Создание ссылки на документ
Отправлено: GrDaniil от 25 Август 2010, 17:23:05

Здравствуйте! На форме имеем кнопку, которая позволяет вставить отсканированный файл. Вот код:
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

Можно ли вставить не файл, а ссылку на него, чтобы при клике на ссылку, открывался данный файл?
У нас получается вставить только ссылку на папку, да и то батником, к тому же в папке сотни документов и пока найдешь нужный, проходит очень много времени.
Заранее спасибо.

Название: Re: Создание ссылки на документ
Отправлено: ViV от 30 Август 2010, 15:01:36

Добрый день!

Вам необходимо иметь доступ к файлам непосредственно их операционной системы? Если нет, то можно воспользоваться технологией DAOS, доступной в версии сервера 8.5.