Domino 9 und frühere Versionen > Entwicklung

OpenFileDialog für Dateianhänge

(1/2) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite