почему может не запускаться серверный агент?
код агента:
shared, on shedule, Daily, выбираем время, -Any Server-, все документы
all readers an above, 2.allow restricted...
у базы флаг Disable background.... убран. Ручками отрабатывается, по расписанию не пашет.
код агента:
Код:
Dim ListFieldDoc List As String
ListFieldDoc("OppNumber") = "Номер возможности:"
ListFieldDoc("RTNumber") = "№ в RT:"
ListFieldDoc("PRuss") = "Признак рассылки:"
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim collection As NotesDocumentCollection
Dim session As New NotesSession
Set db = session.CurrentDatabase
Set collection = db.Search({Form = "Dogovor" }, Nothing, 0)
For i=1 To collection.Count
Set doc = collection.GetNthDocument(i)
Forall x In ListFieldDoc
Call doc.RemoveItem( "Log"+Listtag(x) )
Call doc.Save(True,True)
End Forall
Next
shared, on shedule, Daily, выбираем время, -Any Server-, все документы
all readers an above, 2.allow restricted...
у базы флаг Disable background.... убран. Ручками отрабатывается, по расписанию не пашет.