Image Ressource exportieren

[robertpp]

Hallo,

Kann man per Script die Image Ressourcen ( eine bestimmte) aus einer DB exportieren?
Hintergedanke:

Ich will dann in ein Exceldokument eine Image mit
ActiveSheet.Pictures.Insert("C:\_ICON\home.gif").Select
einfügen.
Oder ist es auf dem direkten Weg aus der Notes db möglich, was ich mir aber nicht so ganz vorstellen kann.

Oder welche Möglichkeit hab ich sonst noch?

danke robert

[Tode]

mit Hilfe der NotesNoteCollection (neu seit R6) ist das gar kein Problem.

Beispiel: Siehe Designer- Hilfe...

Tode

[Glombi]

Es geht auch einfach ohne Programmierung:

In der Datenbank ein Dokument erstellten welches ein Rich Text hat. Dort mit Erstellen - Bildressource diese einfügen und speichern. Dann Aktion - Vorschau im Webbrowser aufrufen. Dort kann dann das Bild wie gewohnt gespeichert werden.

Andreas

[robertpp]

@Andreas:

Ich weiß nicht ob ich mit dem weiter komme. Ich will ja im Notes per Agent oder zb als Button per Script ein Excel doc erstellen und dann eben
ActiveSheet.Pictures.Insert("C:\_ICON\home.gif").Select
machen?
Da komm ich ja garnicht ins web und außerdem ist ja da eine Benutzeraktion notwendig. Oder hab ich das falsch verstanden?

@Tode: Hab ich jetzt gefunden und ebenfalls notesNoteCollection.SelectImageResources

Aber damit bekomm ich ja nicht meine ImageRessource als file auf die Platte?

danke robert

[robertpp]

Also ich hab das jetzt noch gefunden:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

Set db = session.CurrentDatabase

REM Create note collection
Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(False)
nc.SelectImageResources = True
Call nc.BuildCollection

nid = nc.GetFirstNoteId
For i = 1 To nc.Count
Set doc = db.GetDocumentByID(nid)
Set item = doc.GetFirstItem("$Title")
Messagebox item.text
nid = nc.GetNextNoteId(nid)
Next


Das sag mir schon mal den Namen aller Images.
Wie kann ich die dann noch exportieren?

[robertpp]

Kann mir jemand nochmals helfen wie ich die Bilder auf das Filesystem bekomme?

Kann ich die NotesNoteCollection also normale docCollection sehen und somit Files exportieren wie wenn es ein doc wäre?

Oder wie muss ich das machen?

danke robert

[MiChaMc]

Also ich hab das jetzt noch gefunden:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

Set db = session.CurrentDatabase

REM Create note collection
Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(False)
nc.SelectImageResources = True
Call nc.BuildCollection

nid = nc.GetFirstNoteId
For i = 1 To nc.Count
Set doc = db.GetDocumentByID(nid)
Set item = doc.GetFirstItem("$Title")
Messagebox item.text
nid = nc.GetNextNoteId(nid)
Next


Das sag mir schon mal den Namen aller Images.
Wie kann ich die dann noch exportieren?

Das wird ja jetzt alles bei mir im Debugger angezeigt nur wie kriege ich die ganzen Images in einer liste hin?

statt alle einzelt in einer messagebox!

[diali]

Code

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

   dim array() as string
Set db = session.CurrentDatabase

REM Create note collection
Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(False)
nc.SelectImageResources = True
Call nc.BuildCollection

   redim array(nc.Count)
nid = nc.GetFirstNoteId
For i = 1 To nc.Count
Set doc = db.GetDocumentByID(nid)
Set item = doc.GetFirstItem("$Title")
   array(i) = item.text
nid = nc.GetNextNoteId(nid)
Next

indem Du ein Array anlegst und item.text dort rein schreibst

[diali]

@robertpp
Im Groben geht es mit DXLExporter exportieren, umcodieren und als jpg oder gif speichern. Mehr Details gibt es hier.