Domino 9 und frühere Versionen > ND6: Entwicklung

Bilder aus Notes DB exportieren

<< < (2/6) > >>

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

klaussal:
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?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete