Общие вопросы > Поддержка

СРОЧНО нужна помощь, экспорт фото из Lotus Notes Domino 5

(1/4) > >>

salavat:
В карточке сотрудинка есть поле "Foto" в которое по кнопке импортируются фотки:
@Command([EditGotoField];"foto") ;
@PostedCommand([FileImport])

Необходимо выгрузить все фотки из базы. Не могу достать их из этого поля.

Set Fotoitem = doc.GetFirstItem("Foto")

в отладчике:
EMBEDDEDOJECTS - пустое
TYPE - 1

помогите плиз...

ViV:
Добрый день!

Попробуйте пройтись по всем элементам документа, и, если имя елемента будет $FILE, то это вложенный файл. Далее фильтруйте по имени файла.

Irbis:
такая же задача: требуется выгрузить выбранные(помеченные) документы с помощью агента, причем каждая карточка выгружается в определенный каталог. База работает и написана на Lotus Notus Domino R5
- выгрузить текстовые данные в Эксель; - это у меня получилось  :)
- выгрузить вложенные файлы; (выгружаются в подкаталог) - и это у меня получилось  :)
- выгрузить вложенные картинки. (выгружаются в другой подкаталог) - картинки, не получается  ???  ???  ???
не могу достать картинки из поля

помогите плиз...

текст агента на LotusScript приведен, ниже
Sub Initialize
   Dim ss As NotesSession
   Dim ws As NotesUIWorkspace
   Dim db As NotesDatabase
   Dim docs  As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim xl As Variant
   Dim xlW As Variant      
   Dim strFile As String
   Dim path As String
   Dim rtitem As Variant
   Dim object As NotesEmbeddedObject
   Dim sizeInBytes As Long   
   
   Dim x As Integer
   Dim y As Integer   
   
   Dim outline As NotesOutline
   Dim oe As NotesOutlineEntry   
   
   Set ss = New NotesSession
   Set ws = New NotesUIWorkspace   
   Set db = ss.CurrentDatabase
   Set docs = db.UnprocessedDocuments   
   Set doc = docs.GetFirstDocument()   
   
   For i = 1 To docs.Count      
      subString$ = "документ"   
      Set xl = Nothing      
      Mkdir "r:\F\" & i
      path = "r:\F\" & i + "\"         
      
      'Выгрузка информации из документа в Excel (выгрузка поля FIO)
      Set xl = CreateObject("Excel.Application")
      If xl Is Nothing Then Exit Sub    
      Set xlW = xl.Workbooks.Add      
      xl.Rows( " 1:1" ).Select       
      Set doc = docs.GetNthDocument( i )            
      xlW.ActiveSheet.Cells( 2, 1 ) = doc.FIO(0) ' ФИО      
      
      Call xlW.SaveAs( path + "карточка" )
      Call xlW.Close      
      
      'Выгрузка вложенных файлов из поля Comment
      Set rtitem = doc.GetFirstItem("Comment")
      If Not Isempty(rtitem.EmbeddedObjects) Then
         If doc.HasEmbedded Then             
            Mkdir path & i + "B"            
            Forall o In rtitem.EmbeddedObjects
               strFile = path & i + "B" & "\" & o.name
               Call o.ExtractFile(strFile )                  
            End Forall
         End If
      End If

      'Выгрузка фотографий из поля FOTO
      '...????? не могу достать картинки из поля
      
   Next
End Sub

ViV:
Картинки хранятся только в одном поле? или могут содержаться еще в каком-нибудь?
Расширения картинок известны?

Irbis:
Картинки хранятся только в одном поле "FOTO", причем в этом поле может быть несколько картинок.
Расширения картинок "jpg" - картинки с этим расширением загружались в документы.

Навигация

[0] Главная страница сообщений

[#] Следующая страница