Hallo,
ich habe folgendes Problem:
Ich setze in einer Umgebungsvariablen den Pfad einer Datei. Die möchte ich mit dem folgenden Skript in ein RichtExtfeld einfügen.
Bei dem Versuch wirft es die oben genannte Fehlermeldung.
Code
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
'Hole Datei name aus Environmentvar.
txtFile$=session.GetEnvironmentString ("AnhangNT")
Set rtitem = New NotesRichTextItem( doc, "txtAnhang" )
Set object = rtitem.EmbedObject ( EMBED_OBJECT, "", txtFile$)
Call doc.Save( True, True )
Alles anzeigen
Ich danke für jede Hilfe!