PDF aus RTF Feld per Button öffnen

[OlliS.]

Hallo,

ist es möglich per Lotus Script einen Button so zu hinterlegen das er auf ein bestimmtes RTF Feld, in diesem Fall heißt das Feld "test", zugreift und aus diesem Feld eine bestimmte Datei mit festgelegtem Dateinamen öffnet?

Falls ja hätte jemand eventuell einen ersten Ansatz?

[pram]

Hallo Olli,

Ich hab 2 Ansätze:
1.
Alle enthaltenen Anhänge findest du mit: v= Evaluate("@attachmentnames", doc)
Die Anhänge holst du dann mit set att = doc.getAttachment("name")
Du musst den Anhang dann im Filesyystem ablegen und starten.

2.
Etwas einfacher geht es wohl, wenn du in der Maske "Launch first attachment" setzt und dann das Dokument durch Klick auf den Button mit dieser Maske öffnest. (geht evtl sogar über Dialogbox in @FormelSprache, hab ich aber nicht ausprobiert)


Gruß
Roland

[OlliS.]

Hallo Roland,

was meinst du mit ablege im FileSystem.

Zur Zeit besteht folgende Situation.

Die Maske wird gestartet und bestitzt 2 RTF Felder mit jeweils einem PDF Dokument als Inhalt.
Hier kann mann jetzt manuel direkt das Dokument ankicken und mit öffnen bestätigen.
Da mir dies Designtechnisch nicht gefällt würde ich gerne das RTF Feld ausblenden und per Button den Inhalt(quasi das PDF Dokument) dieses RTF Feldes in der selben Maske öffnen.

[umi]

Hallo OlliS.

Du kannst Attachments nicht direkt starten. Du musst diese zuerst lokal ablegen (z.B. Notes Temp verzeichnis) und kannst sie erst dann starten/öffnen.
Natürlich werden die gespeicherten Attachments nicht automatisch gelöscht.

[pram]

Also, wie ich oder OlliS schon schrieb, entweder machst du das "zu fuß" (in Temp Verzeichnis entpacken etc. und dann mit Shell starten) oder wie ich in meinem 2. Ansatz skizziert habe.

Probier mal folgendes:

Erstelle eine neue Maske, diese nennst du z.B. "laucher". In diese Maske machst du ein Richtext-Feld mit Namen "Body".Die Maske kann komplett leer bleiben
In der Maske stellst du im Reiter mit "Rakete" die Launch Properties auf "First Attachment"

In deiner vorhanden Maske die für die Dokumete mit den Anhängen zuständig ist, erstellst du dir einen Button mit folgendem Code:

Code

Dim ws As New NotesUIWorkspace
Dim srcDoc As NotesDocument
Set srcDoc = ws.CurrentDocument.Document
Dim dstDoc As New NotesDocument(srcDoc.ParentDatabase) ' tempDoc anlegen
Call srcDoc.GetFirstItem("RtFeldMitAttachment").copyItemToDocument(dstDoc,"Body") ' Feld kopieren
dstDoc.form = "launcher" ' Maske setzen
Call ws.EditDocument(False, dstDoc) ' Im Lesemodus öffnen => erstes Attachment wird gestartet

Der Code macht folgendes:
1. Erstellen eines temporären Dokuments
2. Kopieren des Feldes "RtFeldMitAttachment" in das "Body"-Feld des Temp-Docs
3. Öffnen des TempDocs mit der "Launcher" Maske
=> Erster Anhang wird gestartet

Um das Entpacken, Ablegen im Temp-Verzeichnis und wieder aufräumen kümmert sich Notes (ist das nicht toll   )

Gruß
Roland