• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Need Help

  • Автор темы trenator
  • Дата начала
Статус
Закрыто для дальнейших ответов.
T

trenator

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

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

Domino6

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

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
 
O

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?
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!