Tach Experten!
Ich habe eine Notes Datenbank mit einem Produkt-Katalog für eine Internet-Anwendung. Den einzelnen Dokumenten wurden Abbildungen der Produkte als Attachments hinzugefügt (Im „body“ Feld). Nun soll dieser Katalog exportiert werden, wobei die Bilder im Dateisystem abgelegt werden sollen. Hat jemand eine Idee wie man per Notes-Skript auf Attachments zugreifen und diese im Filesystem speichern kann?
Besten Dank im Voraus
Peter Dimitri
Ich habe eine Notes Datenbank mit einem Produkt-Katalog für
eine Internet-Anwendung. Den einzelnen Dokumenten wurden
Abbildungen der Produkte als Attachments hinzugefügt (Im
„body“ Feld). Nun soll dieser Katalog exportiert werden, wobei
die Bilder im Dateisystem abgelegt werden sollen. Hat jemand
eine Idee wie man per Notes-Skript auf Attachments zugreifen
und diese im Filesystem speichern kann?
Dim doc As NotesDocument
Dim rtitem As Variant
'…set value of doc…
Set rtitem = doc.GetFirstItem( „Body“ )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.ExtractFile( „c:\samples“ & o.Source )
Call o.Remove
Call doc.Save( False, True )
End If
End Forall
End If
(Aus der Hilfe zum Domino Designer R5 zum Thema: "Examples: EmbeddedObjects property ")
HTH
Thomas Bahn