4000:Unknown Exception --> Skript auf Symphony

Hallo zusammen,

ich habe ein Butten erstellt welcher mit diesem Script versehen ist:

Click(Source As Button)
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Set uidoc = ws.CurrentDocument
	Set doc = uidoc.Document
	Set session = New NotesSession
	Set purchaseorder = New PurchaseOrder(session.CurrentDatabase,doc)

	Dim tempfile As String
	tempfile =  purchaseOrder.GetTemplateFile
	Dim application As New SymphonyApplication	
	Set document  = application.Documents.AddDocument(tempfile,True,True)
	Call ExportGeneralDetail
	Call ExportOrderItems

	Dim total As Double
	total = Cdbl(purchaseorder.gettotal)
	If(Subtotal > 100) Then
		Call GenerateParagraphAndSection
	End If	

	Dim tempDirectory As String
	tempDirectory = purchaseorder.GetNotesTempDirectory
	Call SaveDocument(tempDirectory+purchaseOrder.getPONumber+".odt")
End Sub

Es wird ein Symphonydokument in der Datenbank geöffnet welches mit Textfeldern versehen ist, diese werden durch einen Script gefüllt.

nun hab ich das probleme das einigemale der Fehler "4000:Unknown Exception" erscheint und das notes nach erneuten betätigen des Buttons geschlossen werden muss.
Nach dem neustart von notes funktioniert der Script wieder.

Wie kann ich diesen Fehler beseitigen so das es nicht erst zum Absturtz von notes kommt?

Kann mir jemand helfen?

Ich danke euch schonmal für eure Unterstützung.

Gleich nachdem ich den Button betätige.
Laut google könnte es am workspace liegen, doch weiß ich nicht was ich ändern soll.

Es wird gesagt unter C:\Programme\IBM\Lotus\Notes\framework\rcp\rcplauncher.properties

soll der eintrag

rcp.data=C\:/Programme/IBM/Lotus/Notes/Data/workspace

geändert werden.

Doch weiß ich nicht was dort falsch sein sollte.

Hi, sorry das ich so spät antworte.

Leider kommt dieser Fehler nicht immer.

nun konnte ich mittels des Debugger die Zeile definieren welche mir den fehler bringt.

Dim application As New SymphonyApplication

Ich weiß aber leider nicht was ich ändern muß, das dieser fehler nicht mehr erscheint.

Ich danke euch für eure Hilfe.

Hi, mit der instanzentrennung kam ich leider nicht weiter. Nein das Symphony ist vorher nicht geöffnet.

Ich bin voll ratlos

Da er mir einen Fehler brachte das er das genannte Objekt nicht findet.

ich habe ein neues SymphonyDocument gesetzt und anschließend auf dem DIM zugeortnet.

Oder wie meintest du das mit dem trennen.

habe mit SET das NEWSymphony gesetzt
und mit DIM dem namen zugeortnet.

Dim application As SymphonyApplication 
Set application = New SymphonyApplication

So hab ich das getrennt

Der fehler kommt jetzt bei der Zeile:

Set application = New SymphonyApplication

Ich habe gelesen das es möglichkeiten gibt teile von Symphony mit hochzuladen wenn notes startet.

Wo muß ich dies denn einstellen?

Vielleicht hilft dies :-/

Leider hat die Option Symphony mit Lotus Notes Starten, auch nicht zur Lösung geführt.

Weiß denn nochjemand eine Lösung?

Die Fehlermeldung ist "4000:Unknow Exception"
Das Problem ist ja das der Fehler nicht immer kommt.

Wenn die Datenbank als erstes geladen wird und der Script das erstemal das Dokument laden möchte kommt der Fehler des öffteren.

Wenn einmal der Script jedoch fehlerfrei durchgelaufen ist, erscheint der Fehler nicht mehr im Laufenden Prozess.

Achso den Fehler habe ich bereits schon gelößt da ich beide Zeilen nacheinander gesetzt hatte.

Doch das Unknown Exception fehler kommt weiterhin.