Wie ich diese Fehlermeldung hasse. Beim Scripten mit Lotus und Probieren vieler Scripte, und Scriptteile ist mir noch nie so oft ein bestimmter Fehler zuvorgekommen, wie der "Object Variable not set". Und ich weiß echt nicht weiter. Egal was ich versuche, alles führt doch auf diesen Fehler zurück. Mein Script ist nahezu fertiggestellt, sollte dieser Fehler behoben werden.... dazu brauch ich eure Hilfe:
Sub Initialize
Dim t(87) As String
'Variablen
t(1)="90/1-10-03-0001" ...
'[TEIL 1 - DATABASEAUSWAHL]
daba = Inputbox$("Bitte den Dateinamen ihrer Lokalen Datenbank [Im Allgemeinen C: \Lotus\Notes\Data] eingeben","Hinweis")
Dim da As New NotesDatabase("",daba)
Dim daba as New NotesDatabase("","0001-Testbank.nsf")
'[TEIL 2 - KATEGORISIERUNG]
Dim x As Integer
Dim x2 As Integer
Dim y As Integer
Dim selection As String
Dim collection As NotesDocumentCollection
Dim dati As New NotesDateTime("")
Dim doc As NotesDocument
Dim tit As String
x=1
x2=1
Do
tit = Right$(t(x),4)
Call db.CreateCopy("",tit)
Dim dx As New NotesDatabase ("",tit)
dx.Title = t(x)
selection = "@Contains(Subject;"""+tit+""")"
Set collection = da.Search(selection,dati,0)
y=collection.count
'Kategorisierung
Do
Set doc = collection.GetNthDocument(x2)
Call doc.CopyToDatabase(dx)
x2=x2+1
Loop Until x2=y+1
x=x+1
Loop Until x=3
'[TEIL 3 - FERTIG]
Messagebox "Fertig",MB_OK,"Erfolg"
End Sub
Was bitte ist an meinem Script falsch ? Ich hab herausgefunden, dass der Fehler sich in der Inneren Do-Schleife befindet, denn wenn ich diese deaktiviere, funktioniert alles andere. Aber auf diese Schleife kommts doch an.... hoffentlich könnt ihr da helfen...
