Domino 9 und frühere Versionen > ND7: Entwicklung

Anhang direkt in Maske

(1/3) > >>

VB3Bernd:
Hallo zusammen,

ich steh total auf dem Schlauch  :P

Ich habe eine Maske, in die direkt ein Anhang eingestellt wurde (im Design), also quasi ohne eigenes Feld. Wenn ich dann ein neues Dokument erstelle, erscheint der Anhang in der Maske und man kann ihn öffnen usw. - soweit klar.

Habe ich eine Chance, diesen Anhang in einem Maskenereignis (z.B. beim QuerySave) direkt zu drucken?

Die Skripte hier im Forum funktionieren, wenn ich den Anhang in einem RT-Feld (z.B: "Body") stehen hab.

Mir fällt im Moment irgendwie nicht ein, wie das funzt, wenn der Anhang per Designer direkt in der Maske steht  :-[

Vielen Dank für Eure Hilfe.

Grüßchen
Bernd

Glombi:
Mit
 Forall o In doc.EmbeddedObjects

    End Forall
solltest Du an den Anhang kommen, auch wenn er nicht in einem Feld steht.

Andreas

VB3Bernd:
@Glombi
Danke für die schnelle Antwort, aber ich erhalte die Meldung "Type Mismatch" in der Zeile: Forall o In doc.EmbeddedObjects

Hier mal mein Skriptanfang:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim ws As New notesuiworkspace
   Set source = ws.CurrentDocument
   Dim doc As NotesDocument
   Set doc = source.Document
   
   Call source.refresh
   
   Forall o In doc.EmbeddedObjects
   (... usw...)

Bei "EmbeddedObjects" wird im Debugger auch <leer> angezeigt  :-\

Grüßchen
Bernd

koehlerbv:
Wenn das die Erstspeicherung ist, gibt es auf jeden Fall noch kein Attachment im Backend - derartige Objekte stehen erst nach erfolgter Speicherung zur Verfügung.

Bernhard

Glombi:
Neuer versuch:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim ws As New notesuiworkspace
   Set source = ws.CurrentDocument
   Dim doc As NotesDocument
   Set doc = source.Document

dim anhangname as string
dim ret_eval as variant
ret_eval = Evaluate( |@AttachmentNames| )
if not IsArray( ret_eval ) then exit sub
anhangname = ret_eval(0)


dim anhang as NotesEmbeddedObject
set anhang = doc.GetAttachment( anhangname )


In der Hilfe steht, dass es soch auch mit V2 Attachments geht. Ich vermute, dass Notes Anhänge, die direkt in der Maske sind, auch als V2 Attachments interpretiert.

Given the name of a file attachment, returns a NotesEmbeddedObject representing the attachment. You can use this method to find file attachments which are not contained in a rich text item (such as an attachment in a Release 2 database), as well as file attachments that are contained in a rich text item.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite