Funktion för att skapa en tom NotesDocumentCollection
Eftersom det inte finns någon metod eller konstruktor för att skapa en ny och tom NotesDocumentCollection i Lotusscript så har jag här gjort en funktion som förvisso inte lär vara särskilt snabb men den gör sitt jobb, den returnerar en tom NotesDocumentCollection.
Function NewDc() As NotesDocumentCollection
Dim db As notesdatabase,session As New notessession
Dim dc As notesdocumentcollection,doc As notesdocument
Set db = session.currentdatabase
Set dc = db.FTSearch("x$c$¤xsaxsdsxaxsadzx",1)
If dc.count = 1 Then
Set doc = dc.GetFirstDocument
Call dc.DeleteDocument(doc)
End If
Set NewDc = dc
End Function
Relevanta Poster på Notessidan: