Уведомления на почту в Lotus Notes

Тема в разделе "Lotus - Программирование", создана пользователем alexkapustin, 13 сен 2011.

  1. alexkapustin

    alexkapustin Гость

    Репутация:
    0
    коллеги, доьрого времени суток
    столкнулся со следующей проблемой
    может кто отремонтирует код.
    Заранее спасибо

    есть агент выполняется по расписанию
    обращается к виду который отображает по 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
     
  2. Omh

    Omh Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    romanko, ты? :)
     
  3. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Репутация:
    1
    Регистрация:
    27 авг 2008
    Сообщения:
    6.361
    Симпатии:
    335
    что выражает сия просьба, кроме как - нежелание самому разбираться (ни капли)
    даже код поленились оформить в соответ. тегах, а "эта странная фраза"
    - язык русский не родной и нам надо угадать ("казнить нельзя помиловать")
     
  4. hosm

    hosm * so what *

    Репутация:
    0
    Регистрация:
    18 май 2009
    Сообщения:
    2.442
    Симпатии:
    8
    добавить сюда в цикл For переменную-счетчик и внутри If считывать и обнулять - это так сложно? :)
    Или у ентрисов можно глянуть ChildCount (емнип) - ну, там от структуры вьюхи зависит.
    И GetNthEntry неэффективно юзать, лучше через First и Next

    Добавлено: Omh не, просто новичек, скорее всего. тот вряд ли додумается до прокси другой страны :)
     
  5. Omh

    Omh Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Но стиль очень похож :)
     
  6. hosm

    hosm * so what *

    Репутация:
    0
    Регистрация:
    18 май 2009
    Сообщения:
    2.442
    Симпатии:
    8
    не, то аааааа - его клон с очень большой вероятностью. сорри автору темы за оффтоп - если непонятно написала, я потом попробую глянуть, но лучше посмотрите сами - полезно, не так уж там и сложно.
     
  7. alexkapustin

    alexkapustin Гость

    Репутация:
    0
    Гляньте если не сложно.
     
  8. alexkapustin

    alexkapustin Гость

    Репутация:
    0
    Если будет возможность гляньте плиз этот агент
    спасибо
     
Загрузка...

Поделиться этой страницей