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

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

<< < (2/4) > >>

Irbis:
Картинки попадают в поле FOTO по кнопке "Импорт картинки"
Текст: "Формула"
@Command([EditGotoField];"foto") ;
@PostedCommand([FileImport])

ViV:
Можно пройтись по всем элементам документа, и выбирать элементы с именем $FILE. Это будут вложенные файлы из всех полей.
Проверяйте имя файла на расширение JPG, это и будут искомые картинки.

Irbis:
Прошелся по всем элементым документа с именем "$FILE", в этих элементах хранятся файлы (эксель, ворд, jpg и другие), а сами картинки (их эскизы видны в документе) в "$FILE" не попадают  :-[.

а сами картинки получить не получилось, помогите плз ....  :)

Текст приведен ниже:
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 objectName As String
   
   Dim counter 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     
      
      counter = 0
      Forall item In doc.Items
         If item.Name = "foto" Then
            Messagebox "Item # " & counter & Chr(13) & "Item Name: " & item.Name & Chr(13) & "Item Type: " & Item.Type   
                                                                'На экран выводится
                         'Item # 6
                                                                'Item Name: foto
                                                                'Item Type: 1
            
            If ( item.Type = 1 ) Then
               
               Messagebox item.ValueLength
                                                                                'На экран выводится общая сумма всего места сколько занимаю все картинки в данном поле
            End If            
            
         End If
         
         counter=counter+1
         
      End Forall
   Next
End Sub

ViV:
Так вам нужен сам файл JPG, хранящийся в документе? Или иконка приложения, с помощью которого может пользователь, сохранивший этот файл открыть его (тогда зачем это нужно)?

В строке проверяется поле "foto", сюда не попадут вложения, нужно проверять "$FILE":
If item.Name = "foto" Then

Irbis:
 :)

Я и проверял на "foto", и пробовал смотреть все элементы документа, но на элемент картинки так и не вышел  :-\

If item.Name = "$FILE" Then
сюда попадают сами файлы вложения, эти файлы я уже вытащил :)

А проблема в другом: помимо файлов вложения в документе есть еще фотографии, которые хранятся в непонятном формате и отображаются не как иконки файлов, а как фотография, причем в поле может быть несколько фотографий

Навигация

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

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

[*] Предыдущая страница