Решени - найти документ библиотеки и в поле "$ScriptLib" написать какую-нибудь ерунду =)
Кстати, не делайте так на боевом шаблоне =)
Sub Initialize
Dim ns As New NotesSession
Dim ndb As NotesDatabase
Dim nc As NotesNoteCollection
Dim nd As NotesDocument
Dim strNoteID As String
Dim i As Integer
Set ndb = ns.CurrentDatabase
Set nc = ndb.CreateNoteCollection(False)
nc.SelectScriptLibraries = True
Call nc.BuildCollection
strNoteID = nc.GetFirstNoteId
For i = 1 To nc.Count
Set nd = ndb.GetDocumentByID(strNoteID)
Call nd.ReplaceItemValue("$ScriptLib", "HelloWorld")
Call nd.Save(True, False)
strNoteID = nc.GetNextNoteId(strNoteID)
Next
End Sub
2 комментария:
не помню, где, забыл уже. но видел этот пост, маразмом попахивает как по мне.
уже лучше лсс и файл.
всему есть свой предел :-)
p.s. да, и убери ты на коменты эту проверку :-)
Я это взял из презентации Lotuspher'ы где-то 2007 года... Просто интересная инфа, хотя, конечно мало применима =)
Отправить комментарий