Import eines Bilder über Script nicht möglich.

[Lancelot]

Hallo Leute,

habe ein Problem, dass mir seit 2 Stunden den Nerv raubt.
Die Suche im Forum hat mir nicht weitergeholfen.

Ich soll ein Bild über die Auswahl in einer Box in ein Richtextfeld importieren.
So das es im Doc als Bild und nicht als Anhang sichtbar ist.
Leider kommt mir die Meldung "Falscher Datentyp".

Scriptcode:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim rtitem As NotesRichTextItem
   
Set uidoc = ws.CurrentDocument
   
result = ws.OpenFileDialog(True, "Flyer auswählen",, "c:\Flyer")
Call uidoc.GotoField("flylayout")
Call uidoc.Import("JPEG Image", result)


Bevor jetzt einer auf die Idee kommt die Variable ist nicht deklariert sei gesagt, Sie
war schon als String und Variant deklariert.

Ich hab in der Hilfe gelesen, dass es nicht einfach sein einen Typ "Variant" in einen "String" zu konvertieren.
Meine Versuche mit Str(), Str$(), Cstr() blieben alle Erfolgslos.
Auch der Versuch das Ergebnis von "result" über StrRight etc. zu zerlegen schlug fehl.

Es muß doch möglich sein eine Auswahl treffen zu können und mit diesem Ergebnis dann die Datei importieren zu können.

Hoffe Ihr könnt mir helfen!

[ascabg]

Hallo,

Schon mal result(0) versucht?

ws.OpenFileDialog liefert doch meines Wissens nach einen String-Array zurueck.


Andreas

[Lancelot]

Hallo Andreas,

das glaube ich jetzt nicht wie dumm man sein kann. *schäm*
Genau daran lag es.

Jetzt glaub es prima und danke für die Erläuchtung.