Need Help

Тема в разделе "Lotus - Программирование", создана пользователем trenator, 11 май 2006.

Статус темы:
Закрыта.
  1. trenator

    trenator Гость

    Новичок поэтому не пинайте сильно, буду очень благодарен если будут примеры кода.
    а задача в следующем:

    Допустим мне пришла почта (memo) в ней текст и ссылка на документ (уведомление о наличии документа) в другой БД, а мне надо пройти по этой ссылке скриптом в этот документ посмотреть значение определенного поля в нем и если оно отвечает условию (чтото в нем есть) удалить письмо об этом документе (уведомление) из почты.
    как это сделать программно?
     
  2. Domino6

    Domino6 Гость

    При формировании письма со ссылко помещать поля содержащие путь к базе и UNID документа
     
  3. trenator

    trenator Гость

    вот нашел такой скрипт но чтото не хотсет он работать помогите пожалуйста
    Sub Initialize
    Dim session As New NotesSession

    Dim view As NotesView
    Dim doc As NotesDocument
    Dim db As New NotesDatabase
    Dim remotedoc As NotesDocument
    Dim remotedb As NotesDatabase
    Dim rtItem As Variant
    Dim rtnav As NotesRichTextNavigator
    Dim rtlink As NotesRichTextDocLink


    Set view = db.GetView( "Просроченное согласование" )
    Set doc = view.GetFirstDocument
    While Not ( doc Is Nothing )
    'Put Code here that will check document link
    Set doc = view.GetNextDocument( doc )
    Wend
    Set db = session.getCurrentDatabase
    Set doc = session.DocumentContext
    Set rtitem = doc.GetFirstItem("Body")

    Set rtnav = rti.CreateNavigator
    If Not rtnav.FindFirstElement(RTELEM_TYPE_DOCLINK) Then
    Messagebox "No doclinks in Body item",, "No doclinks"
    Exit Sub
    End If
    Do
    Set rtlink = rtnav.GetElement
    If rtlink.ServerHint = "" Then
    server$ = "Local"
    Else
    server$ = rtlink.ServerHint
    End If
    msg$ = "Server = " & server$
    msg$ = msg$ & Chr(13) & _
    "Replica ID = " & rtlink.DbReplicaID
    If rtlink.ViewUNID <> String$(32, "0") Then
    msg$ = msg$ & Chr(13) & "View UNID = " & rtlink.ViewUNID
    End If
    If rtlink.DocUNID <> String$(32, "0") Then
    msg$ = msg$ & Chr(13) & "Doc UNID = " & rtlink.DocUNID
    End If
    Messagebox msg$,, rtlink.DisplayComment
    Loop While rtnav.FindNextElement
    End Sub
     
  4. oshmianski

    oshmianski Гость

    getCurrentDataBase - это откуда ж такой метод выкопал?
    сообщение об ошибке в студию!!!

    ну и вот здесь лажа
    .....
    Set rtitem = doc.GetFirstItem("Body")

    Set rtnav = rti.CreateNavigator - мабыть rtitem должно быть
    ....
    И вообще...
    CreateNavigator method
    Example
    Creates a NotesRichTextNavigator object.
    Note This method is new with Release 6.

    У тя какая версия Notes?
     
Загрузка...
Статус темы:
Закрыта.

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