Sub initialisieren
Schwacher Lernabschnitt als neues NotesSession
Schwaches DB als NotesDatabase
Schwaches Doc. als NotesDocument
Schwache Ansammlung als NotesDocumentCollection
Schwaches readersItem als NotesItem
Einstellen DB = session.CurrentDatabase
Ansammlung = db.UnprocessedDocuments einstellen
Einstellen Doc. = collection.GetFirstDocument ()
Während nicht (Doc. ist nichts)
tmpReader = doc.groups (0)
Wenn tmpReader = "" dann
readersItem einstellen = neues NotesItem (Doc., „Gruppen“,“ [FDG] „, LESER)
Doc. benennen. Speichern (zutreffend, zutreffend)
Beenden wenn
Einstellen Doc. = collection.GetNextDocument (Doc.)
Wend
Unterseeboot beenden
|