Sub Initialize
Ciemnawy sesja Jako Nowy NotesSession
Ciemnawy db Jako NotesDatabase
Ciemnawy doc Jako NotesDocument
Ciemnawy kolekcja Jako NotesDocumentCollection
Ciemnawy readersItem Jako NotesItem
Set db = session.CurrentDatabase
Ustalony kolekcja = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument ()
Podczas Gdy Nie (doc Być Podczas Gdy)
tmpReader = doc.groups ((0))
Jeżeli tmpReader = "" Wtedy
Ustalony readersItem = Nowy NotesItem (doc, "grupa"," [FDG] ", CZYTELNIK)
Wywoławczy doc. Save (Prawdziwy, Prawdziwy)
Kończyć Jeżeli
Ustawiać doc = collection.GetNextDocument (doc)
Wend
Kończyć Okręt podwodny
|