Das Notes Forum

Domino 9 und frühere Versionen => ND9: Entwicklung => Thema gestartet von: schroederk am 18.05.15 - 11:28:38

Titel: Dokumente per Lotusscript löschen?
Beitrag von: schroederk am 18.05.15 - 11:28:38

Hallo,

ich möchte gerne alle Dokumente löschen, die in einer View angezeigt werden und ein bestimmtes Item enthalten.
Wie kann ich das am einfachsten machen?

Das folgende Script funktioniert ja leider natürlich nicht:

Zitat

   Set view = db.GetView("meineView")
   Set doc = view.GetFirstDocument
   While Not (doc Is Nothing)
      If doc.Hasitem("MarkedToBeDeleted") Then
         doc.Removepermanently(True)
      End If
      Set doc = view.GetNextDocument(doc)
   Wend   

Muss ich mir erst eine Liste bauen und mir die UNID und am Ende nochmal durch die Liste loopen, um die Dokumente zu löschen?

Titel: Re: Dokumente per Lotusscript löschen?
Beitrag von: Mitch am 18.05.15 - 11:32:28

So zum Beispiel:

Code

   Set view = db.GetView("meineView")
   Set doc = view.GetFirstDocument
   While Not (doc Is Nothing)
      If doc.Hasitem("MarkedToBeDeleted") Then
         Set docToDelete = doc
      End If
      Set doc = view.GetNextDocument(doc)
      If Not docToDelete Is Nothing Then
         Call docToDelete.RemovePermanently(True)
      End If
   Wend

Gruß,

Mitch

Titel: Re: Dokumente per Lotusscript löschen?
Beitrag von: schroederk am 18.05.15 - 12:02:39

Stimmt. Da hätte ich auch selber drauf kommen können.
Vielen Dank.

Titel: Re: Dokumente per Lotusscript löschen?
Beitrag von: Tode am 18.05.15 - 13:05:58

oder "andersrum":

Code

 Set doc = view.GetFirstDocument
   While Not (doc Is Nothing)
      Set docNext = view.GetNextDocument(doc)
      If doc.Hasitem("MarkedToBeDeleted") Then
          Call doc.RemovePermanently(True)
      End If
      Set doc = docNext
   Wend