Need Help

[trenator]

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

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

 

[Domino6]

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

 

[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

 

[oshmianski]

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

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?