Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
If dc.Count <> 0 Then
Set doc = dc.GetFirstDocument
While Not doc Is Nothing
Call doc.ReplaceItemValue ("ДАТА_РЕГИСТРАЦИИ " , Cdat (doc.GetItemValue ("ДАТА_РЕГИСТРАЦИИ ")(0)))
Call doc.Save (True , False)
Set doc = dc.GetNextDocument (doc)
Wend
End If
удали и создай новое
мой вам совет - держаться подальше от этого методаесть метод appendItemValue(itemName$,value)
Видимо, имелось ввиду следующее:to ToxaRat что вы имели ввиду "перед реплейсем именно удалить итем"?
Call doc.RemoveItem("ItemName")
Call doc.ReplaceItemValue("ItemName", ItemValue)
Обучение наступательной кибербезопасности в игровой форме. Начать игру!