Dokumente von Ansicht in Ordner verschieben

Elfriede · 9. Februar 2005

Um ein Dokument von einer Ansicht in einen Ordner zu verschieben verwendete ich folgendes LScript

Dim ws As New NotesUIWorkspace
Set db = session.Currentdatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document

Set doc.status="archivieren"
If Doc.status = "archivieren" Then
Call ws.folder("Archiv", True)
Exit Sub
End If

Das Dokument wird zwar in den Ordner abgelegt, verschwindet aber nicht aus der Ansicht, welches die Auswahlformel: SELECT (@Contains(status; "erledigt")) enthält. Mit meinem Script wollte ich den Status des Dokuments ändern, damit die Auswahlformel nicht mehr zutrifft aber irgendwas klappt da nicht.

Kann mir jemand weiterhelfen???

taurec · 9. Februar 2005

Du solltest das Dokument noch abspeichern nachdem du den Feldwert geändert hast.
Erst dann verschwindet es aus der Ansicht

Elfriede · 9. Februar 2005

So funktioniert es nicht, irgendwo ist da noch ein Fehler. Vielleicht das set doc.status?

Dim ws As New NotesUIWorkspace
Set db = session.Currentdatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document

Set doc.status="archivieren"
Call doc.save(True, True)
If doc.status = "archivieren" Then
Call ws.folder("Archiv", True)
Exit Sub
End If

:roll:

Diali · 9. Februar 2005

lass mal das Set in der Zeile weg.

Mit einem ws.ViewRefresh kannst Du die Ansicht aktualisieren.

Gruß
Dirk

Elfriede · 9. Februar 2005

Jetzt kommt immer die Fehlermeldung "Variant does not contain an object"
:-? :hammer:

Diali · 9. Februar 2005

in welcher Zeile?

Gruß
Dirk

Elfriede · 9. Februar 2005

Sorry: Fehlermeldung: Object variable not set

Set doc = uidoc.Document

Diali · 9. Februar 2005

dann liegt es an Deinem uidoc. Was sagt der Debugger zum Objekt uidoc (ist wahrscheinlich nicht vorhanden)?

Gruß
Dirk

Elfriede · 9. Februar 2005

Das versteh ich jetzt nicht. Ich habe das uidoc doch deklariert bzw um in einem doc etwas zu verändern muss ich es doch erst in den uidoc Modus bringen oder?

Diali · 9. Februar 2005

Bei Deinem Script muss ein Dokument im FrontEnd geöffnet sein. Du änderst das Dokument dann im BackEnd.

Dies könntest Du auch gleich im BackEnd tun, indem Du z.B. die markierten Dokumente der Ansicht verwendest (NotesDatabase.UnprocessedDocuments).

Gruß
Dirk

Elfriede · 9. Februar 2005

Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments

doc.status="archivieren"
Call doc.save(True, True)
If doc.status = "archivieren" Then
Call ws.folder("Archiv", True)
Exit Sub
End If

Das klappt auch noch nicht.

Diali · 9. Februar 2005

in der Deigner-Hilfe - Index und dann nach UnprocessedDocuments suchen.

ODER hier.

Gruß
Dirk

Elfriede · 9. Februar 2005

Irgendwie haben wir uns überschnitten, hier das Ergebnis meines Grübelns

Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments

doc.status="archivieren"
Call doc.save(True, True)
If doc.status = "archivieren" Then
Call ws.folder("Archiv", True)
Exit Sub
End If

Das klappt auch noch nicht.

Diali · 9. Februar 2005

Dir fehlt noch das Dokument.
Eventuell könntets Du auch mehrere Dokumente über eine Schleife bearbeiten. Bei einer DocumentCollection kannst Du mit PutAllinFolder die Dokumente in einen Ordner verschieben.

Code

Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments


if dc.Count = 1 Then
  set doc = dc.getFirstDocument
  doc.status="archivieren" 
  Call doc.save(True, True) 
  Call dc.PutAllInFolder("Archiv", True)
Else
  MsgBox "Es muss genau ein Dokument ausgewählt werden"
End If

Alles anzeigen

Elfriede · 10. Februar 2005

Juhu! Ich bin begeistert! Es klappt!!!

Vielen Dank!

Gruß Elfi :lol:

Teilen