Beiträge von HeikoE

Zitat

Diali schrieb:
die musst Du mit Freefile ermitteln

fileNum% = FreeFile()
Open txtFile(0) For Input As fileNum%

Gruß
Dirk

Alles anzeigen

Danke das habe ich gemerkt, habe das Problem gelöst.

Ne andere Frage:

Gibt es eine Möglichkeit Arrays variabel zu vergrößern, ohne den Inhalt zu löschen? Mit Redim kriege ich immer ein neues leeres Array.

Danke jetzt bringt er mir aber die Fehlermeldung: Illegal FileNumber in der Zeile:

Open txtFile(0) For Input As FileNum

Hallo,

ich versuche über einen Dialog eine Datei einzulesen, leider bekomme ich immer einen Type missmatch, da das Ergebnis als Variant geliefert wird ich aber einen String brauche um die Datei zu öffnen.
Zu konvertieren mit CStr hat leider auch nicht funktioniert.

Vielen Dank schonmal für eure Hilfe!

Agent:

Sub Initialize
	Dim session As New Notessession
	Dim ws As New NotesUiWorkspace
	Dim db As Notesdatabase
	Dim doc As Notesdocument
	Dim FileNum As Integer
	Dim txtFile As Variant
	Dim ausgabe As String
	Set db = session.currentDatabase

	'Auswahl der txt-Datei durch Benutzer
	txtFile = ws.OpenFileDialog( False, "File List",  "", "p:")

	'Öffnen der txt-Datei
	Open txtFile For Input As FileNum

	'Zeilenweises einlesen der txt-Datei
	Do Until Eof (fileNum)
		Line Input #fileNum, ausgabe
		' Ausgabe jeder Zeile		
		Print ausgabe
	Loop

End Sub

OK, ich werde nachher mit dem Auftraggeber sprechen und schauen was ich machen kann.

Wie gesagt diese Aktion wird bisher durch einen Druck auf einen Button ausgelöst.

Danke für die Hilfe!!

Zitat

Diali schrieb:
Wenn Du nach dem Script-Lauf Dein Dokument im Frontend beendest ohne es zu speichern, existiert dann beim Öffnen der Dateianhang?

Ja da existiert der Anhang

Also ich habe jetzt diesen Code, leider funktioniert es nicht.

Das ist dumm.

Sub Initialize
	Dim session As New NotesSession
	Dim ws As New NotesUiWorkspace
	Dim uidoc As NotesUiDocument
	Dim doc As NotesDocument
	Dim rtitem As Variant
	Dim object As NotesEmbeddedObject

	Set uidoc = ws.currentDocument
	Set doc = uidoc.document
	txtFile$=session.GetEnvironmentString ("AnhangNT")
	Set rtitem = doc.GetFirstItem( "txtAnhang" ) 

	If ( rtitem.Type = RICHTEXT ) Then
		'Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, "", txtFile$)
		Set object = rtitem.EmbedObject(EMBED_OBJECT, "", txtFile$)
	End If

	Call doc.Save(True, True,True) 
	Call uidoc.refresh(True)

End Sub

Das geht nicht so einfach.
Ehe die Maske geschlossen wird läuft eine Pflichtfeldüberprüfung ab, und die wirft da mit Sicherheit einen Fehler, da die Schaltfläche mitten in der Masse ist und weite Felder folgen.

Muss das Dokument wirklich geschlossen und wieder geöffnet werden? Gibt es keine andere Chance?

Zitat

dnotes schrieb:

dann sollte es funktionieren

Nein das geht ebensowenig, leider.

Die Fehlermeldung kommt nur wenn das Feld bearbeitbar ist.

Der Code sieht jetzt so aus, er wird komplett durchlaufen (inklusive dem if-zweig), der Anhang erscheint aber immernoch nicht:

Sub Initialize
	Dim session As New NotesSession
	Dim ws As New NotesUiWorkspace

	Dim doc As NotesDocument
	Dim rtitem As Variant
	Dim object As NotesEmbeddedObject

	Set doc = ws.currentDocument.document
	txtFile$=session.GetEnvironmentString ("AnhangNT")
	Set rtitem = doc.GetFirstItem( "txtAnhang" ) 

	If ( rtitem.Type = RICHTEXT ) Then
		Set object = rtitem.EmbedObject(EMBED_OBJECT, "", txtFile$)
	End If
	Call doc.Save( True, True )
End Sub

Habe es umbenannt

Dieser Screenshot zeigt die Zuwesung:

Nein, da kommt an der Stelle

Set rtitem = doc.GetFirstItem( "txtAnhang" )

Der Fehler "Type missmatch"

Das funktioniert ohne Probleme.

Erstmal Danke für die Geduld.

Der Code sieht jetzt so aus, aber das Problem bleibt dasselbe.

Sub Initialize
	Dim session As New NotesSession
	Dim ws As New NotesUiWorkspace

	Dim doc As NotesDocument
	Dim rtitem As NotesRichtextItem
	Dim object As NotesEmbeddedObject


	Set doc = ws.currentDocument.document
	Print doc.wfAlias(0)
	txtFile$=session.GetEnvironmentString ("AnhangNT")
	Set rtitem = doc.GetFirstItem( "txtAnhang" ) 

	Set object = rtitem.EmbedObject(EMBED_OBJECT, "", txtFile$)
	Call doc.Save( True, True )
End Sub

Vielen Dank das funktioniert.

Mein Coding sieht nun so aus:

Sub Initialize
	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 = session.DocumentContext
	Print doc.wfAlias(0)
	txtFile$=session.GetEnvironmentString ("AnhangNT")
	Set rtitem = New NotesRichTextItem( doc, "txtAnhang" )
	'Set rtitem = doc.GetFirstItem( "txtAnhang" ) 

	Set object = rtitem.EmbedObject(EMBED_OBJECT, "", txtFile$)

	Call doc.Save( True, True )
End Sub

Es gibt nun noch folgendes Problem:
Der Anhang wird nicht erstellt (nicht angezeigt), das RichtextItem steht direkt neben der Schaltfläche, ist aber auch schon vorhanden.

Das grundsätzliche Problem sitzt vor meinem Bildschirm.

Ich erzeuge wie du siehst ein neues Dokument, ich müsste aber auf das aktuelle zugreifen. Kannst du mir nen Tip geben, wie ich das machen kann? Ich steh grad etws auf der Leitung glaube ich.

Ich hab es dadurch verhindert, dass das Feld berechnet ist und manuell (ohne Schaltfläche) nichts eingefügt werden kann.

Wenn ich es mit einer Textdatei versuche kommt kein Fehler, die Datei wird aber nciht im Dokument angezeigt.

Woran kann das liegen?

In der txtfile steht das richtige drin.

Das Script wird in einem Agenten ausgeführt, der aufgerufen wird nach dem auf eine Schaltfläche gedrückt wird. Der Agent muss sein, da in der Schaltfläche mit Formeln gearbeitet wird.

Manuelles Einbinden soll nicht erlaubt werden, da sonst der Benutzer auch Text reinschreiben könnte.

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.

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 )

Ich danke für jede Hilfe!