Behandle ET doc. i en oversigt

Hvis det er markerede dokumenter i en oversigt skal du bruge
db.UnprocessedDocuments
som giver følgende resultat:

Hvis et eller flere dokumenter er markeret med flueben, returneres en doccol med disse dokumenter (uanset hvor \'cursoren\' i øvrigt står);

Hvis ingen dokumenter er mærket returneres en doccol med det dokument, som befinder sig under cursoren, hvis det er en kategorisering returneres en tom doccol

Så din kode bliver til:

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim view As Notesview   
    Dim doc As NotesDocument
    Dim doccol As NotesDocumentCollection
    Dim navn As Variant
   
    Set db = session.currentdatabase
    Set view = db.getview(\"Sager\")   
    Set doccol = db.UnprocessedDocuments
   
    Set doc = doccol.getfirstdocument
Do while not doc Is Nothing \'foretrækker jeg :-)
    navn = doc.filnavn(0)
    Kill \"i:\\temp\\\"+navn+\".lwp\"         
    Set doc2 = doccol.getnextdocument(doc)         
    Call doc.Remove(True)
    Set doc = doc2
Loop
End Sub

hth
jes

Mange tak. \"doccol\" er et meget savnet led.

            \\
    0        \\
      ---|    |   
    0        /
            /