Anhang direkt in Maske

[VB3Bernd]

Hallo zusammen,

ich steh total auf dem Schlauch 

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

[VB3Bernd]

@Andreas
Mahlzeit ...   

Leider findet er keinen Dateinamen. Im Debugger ist ret_eval (0) = <leer> und damit kommt dann auch in der Zeile

set anhang = doc.GetAttachment( anhangname )

ein "Object variable not set".

@Bernhard
Das passiert auch bei schon gespeicherten Dokumenten, selbst wenn ichdas Dok schließe und wieder öffne.   

Ich sehe auch kein $File-Feld in der Feldliste ... einfach nix ... und trotzdem lässt sich dieser Anhang im Frontend "ganz normal" öffnen.

Grüße
Bernd

[koehlerbv]

Hm, ich habe da zu oberflächlich gedacht. Dein Attachment steckt ja gar nicht im Dokument, sondern im Designelement. Also müsstest Du Dir statt dessen das Dokument besorgen, welches hinter dem Designelement (Deine Maske) steckt.

Bernhard

[klaussal]

Stimmt.
Hab das mal auf die Schnelle getestet. Es gibt in den Doc-Eigenschaften kein Feld, das auf den Anhang hinweist.

[VB3Bernd]

@bernhard
 

Das hört sich kompliziert an ... übersteigt wohl meine Fähigkeiten.

Aber vielleicht könntest Du -oder jemand anderes- einen Ansatz posten, mit dem ich weiterkomme 

Gruß
Bernd

[koehlerbv]

Da kommst Du (u.a.) über die NotesNoteCollection class heran.

Aber: Warum willst Du immer wieder den selben Anhang ausdrucken lassen? Der arme Wald.
Warum steckt der Anhang in der Maske und nicht in einem gesonderten Dokument?

Bernhard

[klaussal]

In dem Buch "Domino Designer R5" von Raimund Mann ist ab Seite 439 ein Beispiel drin, wie man an die Designelemente dran kommt.

[koehlerbv]

Dann gibt es noch die DBDesign class von Damien Katz (-> Sandbox). Alles nach dem Motto: Warum einfach, wenn's auch kompliziert geht 

Bernhard

[VB3Bernd]

Aber: Warum willst Du immer wieder den selben Anhang ausdrucken lassen? Der arme Wald.
Warum steckt der Anhang in der Maske und nicht in einem gesonderten Dokument?

Es handelt sich hier um eine Anlage zu einem Vertragsformular, das dem Kunden bei Vertragsabschluss zusammen mit dem Vertrag (=Notes Maske) komfortabel mitausgedruckt werden soll. Den Text und das Layout dieses PDF's (7 Seiten) erhalten wir von einer dritten Stelle, die den Wortlaut rechtlich abgesichert hat. Da soll auch nichts mehr geändert werden können.

Gruß
Bernd

[koehlerbv]

Dann steck das Ding in ein separates (Konfigurations-)Dokument, dass von den Normalusern nur gelesen werden kann. In der Maske baust Du entweder einen Buhtong "Anlage drucken" oder "Vertrag und Anlage drucken" oder packst den Code tatsächlich in ein Event (fände ich nicht so toll).

Bernhard

[VB3Bernd]

Stimmt eigentlich 

Diesmal richtig rum: "Warum kompliziert, wenn's auch einfach geht!"

Manchmal denkt man glaub ich einfach zu einspurig 

Vielen Dank für den "mehrspurigen" Denkansatz 

Grüße
Bernd