Need Help

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

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

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

0

вот нашел такой скрипт но чтото не хотсет он работать помогите пожалуйста
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 Nothyng )
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_DOCLI NK) 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

Сообщение от 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 Nothyng ) Put Code here that will check document link Set doc = view.GetNextDocument( doc ) Wend Set db = session.getCurrentDatabase .....

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?

0