Bilder aus Notes DB exportieren

[Gerhard]

Hallo zusammen!

Habe eine Notes-DB mit 1317 Dokumenten in denen jeweils ein Bild angehängt ist. Ich muss nun diese Bilder wieder lösen und soll die in einem Ordner am Filesystem zur Verfügung stellen.
Das Ganze wäre naürlich gut über einen Agenten und für alle Dokumente auf einmal.
Habe Notes6.5,
danke für einen eventuelle Hilfe,
Gerhard.

[m3]

ja? Welche Frage hast Du Konkret?

[Gerhard]

Wie muss ein Script ausschauen oder mit welchem Freeware Tool kann ich diese 1317 Bilder auf das Filesystem automatisch abspeichern?

[DerAndre]

Hi.

Schau Dir mal die ExtractFile Methode in der Designerhilfe an.

[ascabg]

Hallo,

Das Script gibt es doch schon - wenn auch nur in den Grundzuegen - fertig in der Designer-Hilfe.

siehe NotesEmbeddedObject und hier ExtractFile.


Andreas

[Gerhard]

Hi,
habe nun lt. Designer Hilfe dieses Script verwendet, bekomme aber immer in der Zeile
Set rtitem = doc.GetFirstItem("Body") die Fehlermeldung Object Variable not set.
Was kann ich tun ? Bin leider nicht so fit in Lotus Script.

Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer
Const MAX = 100
fileCount = 0   
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) _
    And ( o.FileSize > MAX ) Then
      fileCount = fileCount + 1
      Call o.ExtractFile _
      ( "c:\reports\newfile" & Cstr(fileCount) )
      Call doc.Save( True, True )
    End If
  End Forall
End If

[klauss]

Heißt das Feld mit dem Bild denn auch "Body" ?

[Gerhard]

Nein, natürlich nicht, sorry, das werd ich gleich mal ändern *die Hitze ist schuld*.

[Gerhard]

Im Feld $FILE steht u.a.:

Objekttyp: Datei
Objekt-ID: 0000220A
Objektlänge: 239617
Dateiname: 0032.jpg
Flags: SIGNED
Host: MSDOS/OS2

Das wäre das Bild das ich herauslösen bzw. auch woanders als jpg eben abspeichern will.
Was muss ich im Code ändern damit es funktioniert ? Statt Body dann $FILE einfügen bringt diesselbe Fehlermeldung.

[DerAndre]

Hi.

Wie heisst den das Feld, wo das Bild drin steckt?

Ist das Bild als Bild oder als Datei in dem Feld?

[Gerhard]

Das Feld heisst Bild_A4, hier ist tatsächlich das Bild als jpg reingehängt, bei den Feldeigenschaften steht aber
Feldname: Bild_A4
Datentyp: Rich Text
Datenlänge: 2632 Byte
Seq.-Num.: 3
Doppeleintrags-ID: 0
Feld-Flags:

Und mich wundert warum hier nicht steht wie gross das Attachment ist, dies steht nur im Feld $FILE.

[klauss]

Also nimmst Du das Feld "Bild_A4" für das Script.

Und die Abfrage mit der FileSize ist wohl überflüssig.

[Gerhard]

Die Filesize hab ich schon rausgetan, beim Feld hab ich Bild_A4 reingeschrieben, das Script sieht nun so aus und funktioniert noch immer nicht....

Sub Initialize
   Dim doc As NotesDocument
   Dim rtitem As Variant
   Dim fileCount As Integer
   fileCount = 0   
'...set value of doc...
   Set rtitem = doc.GetFirstItem( "Bild_A4" )
   If ( rtitem.Type = RICHTEXT ) Then
      Forall o In rtitem.EmbeddedObjects
         If ( o.Type = EMBED_ATTACHMENT ) Then
            fileCount = fileCount + 1
            Call o.ExtractFile _
            ( "c:\reports\newfile" & Cstr(fileCount) )
            Call doc.Save( True, True )
         End If
      End Forall
   End If   
End Sub

[Driri]

Wenn das das komplette Script ist, kann das so auch nicht funktionieren, denn doc ist gar nicht definiert. Da fehlt noch eine Schleife, um durch alle Dokumente zu laufen.

Das würde dann so aussehen, wobei da noch einiges an Errorhandling verbessert werden könnte :

Code:

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim rtitem As Variant
   Dim fileCount As Integer
   fileCount = 0  

   Set db = session.CurrentDatabase
   Set dc = db.AllDocuments
  
   If dc.Count > 0 Then
   Set doc = dc.GetFirstDocument
   While Not (doc Is Nothing)
  Set rtitem = doc.GetFirstItem( "Bild_A4" )
  If ( rtitem.Type = RICHTEXT ) Then
  ForAll o In rtitem.EmbeddedObjects
  If ( o.Type = EMBED_ATTACHMENT ) Then
  fileCount = fileCount + 1
  Call o.ExtractFile _
  ( "c:\reports\newfile" & CStr(fileCount) )
  Call doc.Save( True, True )
  End If
  End ForAll
  End If  
  Set doc = dc.GetNextDocument(doc)
   Wend
  End If
End Sub

Edit : Achso, das Call doc.Save würde ich persönlich auch weglassen. Du brauchst die Dokumente nach zu speichern, nur weil das Attachment auf die Platte gelöst wird.

[klauss]

das Script sieht nun so aus und funktioniert noch immer nicht....

Diese Aussage ist ja nicht gerade hilfreich....

[Gerhard]

Danke Ingo.

Funktioniert nun super, er schreibt nun newfile und den Counter.

Wie krieg ich das noch hin das der Dateiname dann der Name des Attachments ist ?

[klauss]

o.Name

[Axel]

Ändere die Zeile

Call o.ExtractFile( "c:\reports\newfile" & CStr(fileCount) )

in

Call o.ExtractFile ( "c:\reports\" & o.name)

ab.

Axel

[Gerhard]

Super, danke bestens, funktioniert.

Und nun hoffentlich ein Letztes: Welche Abfrage brauche ich damit ich keinen Fehler bekomme wenn das Feld Bild_A4 kein Attachment beinhaltet bzw. nicht vorhanden ist ?

[klauss]

If doc.HasItem("Bild...) then
  Set....
.
.
.
.
     end if
  end if
set doc = dc.....