Если я запускаю скрипт, который прилагается к программе:
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Скрипт</div></div><div class="sp-body"><div class="sp-content">Sub Initialize()
Dim s As New NotesSession
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
Dim zdb As NotesDatabase
Dim jdoc As NotesDocument
Dim counter As Long
Set db = s.Currentdatabase
Set col = db.Unprocesseddocuments
Set zdb = s.Getdatabase("", "zephyr.nsf", False)
If Not(zdb.Isopen) Then
MsgBox "Unable to open Zephyr!"
Exit Sub
End If
If (col.Count = 0) Then
MsgBox "You need to select at least one document to continue!"
Exit Sub
End If
Set doc = col.Getfirstdocument()
Do Until(doc Is Nothing)
counter = counter + 1
Print |Processing | & CStr(counter) & | of | & CStr(col.Count)
Set jdoc = zdb.Createdocument()
Call doc.Copyallitems(jdoc, True)
Call jdoc.Replaceitemvalue("form", "jobdocument")
Call jdoc.Replaceitemvalue("form_original", doc.Getitemvalue("form"))
Call jdoc.Save(True, False, True)
Set doc = col.Getnextdocument(doc)
Loop
Print |Push to Zephyr Complete!|
End Sub
То выскакивает ошибка Object Variable not Set.
Вообще сама программа выглядит следующим образом: