Domino 9 und frühere Versionen > Entwicklung

Aus ner View detachen

(1/1)

Notestime:
Hallo Alle,

ich habe Dokumente, die Attachments enthalten. Ich möchte aus einer View per Aktionsbutton ALLE Anhänge der markierten Dokumente in einen definierten Pfad lösen.

Wie stelle ich das am besten an?

Bernd

Axel:
Hi,

versuch' s mal damit:


...
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim rtitem As Variant

'...set value of doc...

Set db = session.CurrentDatase
Set collection = db.UnprocessedDocuments

Set doc = collection.GetFirstDocument

While Not (doc is Nothing)
  Set rtitem = doc.GetFirstItem( "Body" )
  If ( rtitem.Type = RICHTEXT ) Then
    Forall o In rtitem.EmbeddedObjects
        'Dateien in Verzeichnis c:\reports lösen
        Call o.ExtractFile( "c:\reports\" & o.Name )
    End Forall
  End If

  Set doc = collection.GetNextDocument(doc)
Wend
...

Ich hab's nicht getestet, sollte aber so funktionieren.


Axel

Notestime:
Geil! Funktioniert!

Danke!!

Axel:
Hi,

setzt du bitte dann dein Posting auf "Erledigt". Danke.


Schöne Weihnachten

Axel

Navigation

[0] Themen-Index