OpenFileDialog für Dateianhänge

[Timo]

Guten Morgen zusammen!

Ich habe folgendes Problem:

Über einen Button soll sich ein OpenFileDialog öffnen mit dem man Dateianhänge auswählen kann(Wie der der sich hinter dem Büroklammer-Button verbirgt). Leider konnte ich diesen nicht in der Hilfe finden. Die Ausgewählte Datei soll dann in einem RichTextFeld stehen. Mit dem bekannten OpenFileDialog steht leider nur der Pfad im Feld.

Mit der Bitte um Hilfe

Timo

[diali]

Die Datei, die Du als String bekommst musst Du noch mit
NotesRichtextItem.embedObject(EMBED_ATTACHMENT,"",Pfad + Dateiname, "")
anhängen

[Timo]

hhhmmm ich hab jetzt mal ein wenig was ausprobiert, bekomm aber immernoch keine vernünftige Lösung.

Hier mein Quelltext(vielleicht kann mir ja jemand sagen was für einen dummen Denkfehler ich mache:

Sub Click(Source As Button)
   Dim uidoc As NotesUIDocument
   Dim workspace As New NotesUIWorkspace
   Dim files As Variant
   Dim embedobj As NotesEmbeddedobject
   
   Set uidoc = workspace.currentDocument()
   files = workspace.OpenFileDialog(False, "File List","", "c:")
   Call uidoc.fieldsetText("sektxtAnhaengen",NotesRichtextItem.embedObject(EMBED_ATTACHMENT,"",Cstr(files),""))
End Sub

Timo

[diali]

Du versuchst die Datei in ein RT-Feld im FrontEnd anzuhängen!

RT-Felder sind im FrontEnd schlecht zu händeln.

- Schließe das UIDcokument,
- füge den Dateianhang im BackEnd-Dokument ein
- speicher das BackEnd-Dokument
- öffne das BackEnd Dokument wieder im UI

[Glombi]

Muss das unbedingt in Script sein?
Mit der Formelsprache ist es wesentlich einfacher.

Andreas

[Timo]

Formelsprache wäre auch möglich!!!!
Bin für alle Lösungen offen *g*

Timo

[Axel]

Hi,

die einfachste Variante ist eine Aktionsschaltfläche mit dem Formelbefehl @Command([EditInsertFileAttachment])


Axel

[Timo]

Das Problem ist, dass dieser Befehl nur bei Aktionsschaltfläschen funktioniert. Besser wäre aber das ganze über einen Button zu realisieren!

Geht das auch über die Formelsprache?

[Glombi]

Das geht auch alles in einem Button - und ist ein 2-zeiler:

@Command([EditGotoField];"Body");
@Command([EditInsertFileAttachment])

"Body" ist der Name des Feldes, in das der Anhang eingefügt werden soll.

Andreas

[Timo]

Ja super, endlich klappts!

Vielen Dank für die guten Hinweise!

Timo