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

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

  1. alexkapustin

    alexkapustin Гость

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

    есть агент выполняется по расписанию
    обращается к виду который отображает по 10-20 документов созданные разными пользователями. документы одного уровня.
    он красиво считает все документыи отправлет мини отчет о том что было создано определенное кол-во документов
    но хотелось бы чтот бы агент считал не общую сумму по каждому пользователь
    т.е. было создано пользователем А - 5
    пользователем Б - 4 и т.д.

    инфо о имени пользовтеля отображено в виде.

    вот сам код


    Код (LotusScript):
    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 Lotus team
    Lotus team

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

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

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

    hosm * so what *

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

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

    Omh Lotus team
    Lotus team

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

    hosm * so what *

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

    alexkapustin Гость

    Гляньте если не сложно.
     
  8. alexkapustin

    alexkapustin Гость

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

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