A
alexkapustin
коллеги, доьрого времени суток
столкнулся со следующей проблемой
может кто отремонтирует код.
Заранее спасибо
есть агент выполняется по расписанию
обращается к виду который отображает по 10-20 документов созданные разными пользователями. документы одного уровня.
он красиво считает все документыи отправлет мини отчет о том что было создано определенное кол-во документов
но хотелось бы чтот бы агент считал не общую сумму по каждому пользователь
т.е. было создано пользователем А - 5
пользователем Б - 4 и т.д.
инфо о имени пользовтеля отображено в виде.
вот сам код
столкнулся со следующей проблемой
может кто отремонтирует код.
Заранее спасибо
есть агент выполняется по расписанию
обращается к виду который отображает по 10-20 документов созданные разными пользователями. документы одного уровня.
он красиво считает все документыи отправлет мини отчет о том что было создано определенное кол-во документов
но хотелось бы чтот бы агент считал не общую сумму по каждому пользователь
т.е. было создано пользователем А - 5
пользователем Б - 4 и т.д.
инфо о имени пользовтеля отображено в виде.
вот сам код
Код:
Option Public
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Sub Initialize
Dim session As New NotesSession
Dim encol As NotesViewEntryCollection
Dim en As NotesViewEntry
Dim col As NotesDocumentCollection
Dim refDdoc As NotesDocument
Dim person As String
Dim ChDoc As NotesDocument
Dim wrk As New NotesUIWorkspace
Set db = session.CurrentDatabase
Set view = db.GetView("(crm)")
Set encol = view.AllEntries
Set en = encol.GetFirstEntry
person = en.ColumnValues(0)
For i=1 To encol.Count
Set en = encol.GetNthEntry(i)
If person <> en.ColumnValues(0) Then
Call SendNotification(person)
person = en.ColumnValues(0)
End If
Next
If person = en.ColumnValues(0) Then
Call SendNotification(person)
End If
End Sub
Sub SendNotification(person As String)
Dim rtitem As NotesRichTextItem
Dim en As NotesViewEntry
' Dim rtitem As NotesRichTextItem
' Dim en As NotesViewEntry
Dim session As New NotesSession
Dim doc As NotesDocument
Dim newDoc As NotesDocument
Dim dbMailBox As NotesDatabase
Set encol = view.GetAllEntriesByKey(person, True)
Set doc = db.CreateDocument
doc.Form = "Memo"
doc.Subject = "Уведомление о вчерашних выполненных контактах"
Set ritem = New NotesRichTextItem( doc , "Body" )
Call ritem.AppendText( "Уведомляем, что вчера сделано следующие кол-во контактов: " )
Call ritem.AddNewLine(2)
Call ritem.AppendText( encol.Count & " - " )
Call ritem.AddNewLine(1)
'__________________________________________________________
Print (person)
'Call doc.Send(False, person)
Call doc.Save(True,True)
Set dbMailBox = session.GetDatabase( db.Server, "mail.box")
Set newDoc = doc.CopyToDatabase( dbMailBox )
newDoc.SendTo = person
newDoc.Recipients = person
Call newDoc.Save(True,True)
End Sub