Eigentlich habt Ihr das schon richtig verstanden. Die Dokumente in Entwurf und Archiv, die dieselbe Unique haben sollen angefasst werden. In der Entwurf gelöscht und im Archiv Merkmal setzen.
Ich habe meinen Script etwas umgestellt:
Sub Initialize
Dim S As New NotesSession
Dim DB As NotesDatabase
Dim Doc As NotesDocument
Dim View As NotesView
Dim strEntwurfDB As String
Dim strEntwurfPfad As String
Dim strUnique As String
Set DB = S.CurrentDatabase
Set Doc = DB.GetProfileDocument("(DBProfil)")
'Profil Dokument auslesen
strEntwurfDB = Doc.dbServer(0)
strEntwurfPfad = Doc.dbPfad(0)
Dim VEntwuerfe As NotesDatabase
Dim DocE As NotesDocument
Dim ViewE As NotesView
Set VEntwuerfe = S.GetDatabase(strEntwurfDB,strEntwurfPfad)
Set ViewE = VEntwuerfe.GetView("(LoeschungEntwuerfeE)")
Set View = DB.GetView("(LoeschungEntwuerfe)")
Set Doc = View.GetFirstDocument
'Dokumente fischen
Do Until Doc Is Nothing
strUnique = Doc.Unique(0)
'Lösch jetzt alle dazugehörigen Dokumente und Antworten in der Datenbank VEntwuerfe
Set DocE = ViewE.GetDocumentByKey(strUnique)
Do While Not (DocE Is Nothing)
If DocE.Unique(0) = strUnique Then
Call DocE.Remove(True)
Doc.txtAktion = "gelöscht"
Call doc.Save(True, False)
End If
Set DocE = ViewE.GetNextDocument(DocE)
Loop
Set Doc = View.GetNextDocument(Doc)
Loop
Call view.Refresh
End Sub
Aber an der Stelle
Set DocE = ViewE.GetNextDocument(DocE)
bekomme ich diese Fehlermeldung:
Function requires a valid ADT argument
Zum Teil ist was umgesetzt. Aber irgendwie krieg ich immer ein Problem, wenn das nächste Dok angesprungen werden soll, oder so.
P.S.: Ich mag Wiesel ;o)
