Script PutInFolder

[Thorsten Kalweit]

Guten Morgen zusammen,

mein Script bricht immer mit der Fehlermeldung "Object variable not set ab". Der Debugger stoppt immer in der Zeile "Set currentDocument = Source.Document".

Woran liegt das?

Zum Hintergrund:
In einer Datenbank zur Archivverwaltung wählt der Benutzer ein Dokument aus einer Auswahlliste aus. Von dem ausgewählten Dokument wird u.a. die DocID in dem Feld "docIDAkte" zwischengespeichert. Sobald der Benutzer auf die Aktion "Als Favorit ablegen" drückt, wird der Agent gestartet, der das unten angehängte Script ausführt.
Dieses Script soll das Dokument anhand der DocID finden und in den Ordner "Meine Akten" (am Besten als Kopie) ablegen.

Vielen Dank im Voraus.
Thorsten

Code

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim dc As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim Source As NotesUiDocument
	Dim currentDocument As NotesDocument
	
	Set currentDocument = Source.Document
	
	Set db = session.CurrentDatabase
	Set dc = db.FTSearch(currentDocument.GetItemValue("docIDAkte")(0),1)
	Set doc = dc.GetFirstDocument
	While Not(doc Is Nothing)
		Call doc.PutInFolder("Meine Akten",True)
		Set doc = dc.GetNextDocument(doc)
	Wend
End Sub

[DerAndre]

Ist ja auch klar.

Source ist ja auch nothing.

Deklariert Ja, instanziert Nein.

Mach ein

dim workspace as new ui workspace

set currentdocument = workspace.currentdocument.document

[BigWim]

Hallo Thorsten,

das aktuelle Dokument erhälst Du über die notesuiworkspace-Klasse, also

Dim uiws as new notesuiworkspace
dim source = uiws.currentdocument

Aber bei Agenten mit FrontEnd-Klassen ist immer ein wachsames Auge geboten ....

Markus

[Thorsten Kalweit]

Hallo zusammen,

vielen Dank für Eure Hilfe. Der Agent arbeitet nun so, wie es sein sollte.

Hier das funktionierende Script:

Code

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim dc As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim workspace As New Notesuiworkspace
	Dim currentDocument As NotesDocument
	
	Set currentDocument = workspace.currentdocument.document
	
	Set db = session.CurrentDatabase
	Set dc = db.FTSearch(currentDocument.GetItemValue("docIDAkte")(0),1)
	Set doc = dc.GetFirstDocument
	While Not(doc Is Nothing)
		Call doc.PutInFolder("Meine Akten",True)
		Set doc = dc.GetNextDocument(doc)
	Wend
End Sub

[Driri]

Mit Option Declare wärst Du direkt auf den Fehler hingewiesen worden. Das sollte man sich im Programmers Pane als Standard setzen.

[dirk_2909]

Mit Option Declare wärst Du direkt auf den Fehler hingewiesen worden. Das sollte man sich im Programmers Pane als Standard setzen.

Warum wäre er dann auf den Fehler gekommen? War doch alles deklariert .. nur nicht inztantiiert.

[DerAndre]

Und ein Fehlerhandling, dann muss man wegen diesen 'Kleinkram' nicht immer debuggen.

[Thorsten Kalweit]

Leider war ich ein wenig zu vorschnell.

Das Script kopiert nicht das gesuchte Dokument (Akten) in den Ordner, sondern das temporäre, aus dem es aufgerufen wird.

Kennt jemand einen anderen Lösungsansatz?

[koehlerbv]

Das ist ja auch logisch - Du verlangst es ja so: Du suchst nach einem String, der im aktuellen Dokument vorkommt - und dann beschränkst Du das Ergebnis noch auf genau ein Dokument.

Bernhard

[Thorsten Kalweit]

Ich dachte, dass ich mit FTSearch in der gesamten Datenbank suche.

Ich möchte anhand der DocumentUniqueID und der Form "frmAkte" suchen. ... 

[koehlerbv]

Natürlich sucht FTSearch in der ganzen DB. Dein offenes Dokument gehört aber auch zur DB, oder? 

Warum fasst Du Dein FTSearch syntaktisch nicht strenger und gibst auch die Itemnamen mit an, in denen Du Deine Werte erwartest?

Bernhard

[Thorsten Kalweit]

öööööhhm ja 

Ich mache gerade meine ersten Schritte in Script 

[Thorsten Kalweit]

So!

Habs dann jetzt so gelöst  ... bin sehr stolz auf mich Learning by Doing

Code

Sub Initialize
	
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim vc As NotesViewEntryCollection
	Dim workspace As New Notesuiworkspace
	Dim currentDocument As NotesDocument
	Set db = session.CurrentDatabase
	Set currentDocument = workspace.currentdocument.document
	
	Set view = db.GetView("(alleAktenNachDocID)")
	Set vc = view.GetAllEntriesByKey(currentDocument.GetItemValue("docIDAkte")(0))
	Call vc.PutAllInFolder("Meine Akten")
End Sub

... und es funktioniert super

[koehlerbv]

Sauber 

Bernhard

[Driri]

@Dirk :

Sorry, hatte ich überlesen. 

Schaden kann Option Declare aber trotzdem nicht