Lotus Notes - 在数据库中创建多个新文档的脚本或公式

Lotus Notes - Script or formula to create multiple new documents within a database

我有以下情况:
目前,最终用户需要使用分步过程创建多个文档,但随着创建的一些新功能,用户将需要创建更多必需的文档。
恐怕他们会忘记创建一个重要的,最后会弄乱流程。
基于此,我想创建一个脚本,因为 Compose @Command(公式语言)允许我只创建一种形式。

请注意,这些文档将包含计算字段,因此无需在这些新表单中填写任何数据。

这是我到目前为止得到的结果,它正在运行,但我认为有人可以提供更好的主意。谢谢

    Dim session As New notessession
    Dim db As notesdatabase
    Dim newdoc As notesdocument
    Dim i%
    
    Set db=session.currentdatabase
    
    For i%=1 To 1 'or however many slots you want
        
        Set newdoc=db.createdocument
        newdoc.form= "Form1"
        Call newdoc.save(True,True)
        
        Set newdoc=db.createdocument
        newdoc.form="Form2"  
        Call newdoc.save(True,True)     
        
        Set newdoc=db.createdocument
        newdoc.form="Form3"
        Call newdoc.save(True,True)
                
    Next i%
End Sub

如果你想让文档像在前端打开一样进行计算,那么你需要告诉代码这样做:简单地保存文档不会进行前端计算。您需要在每次保存之前添加一个 ComputeWithForm 以执行此操作:使用分配的表单计算文档。看起来像这样:

    Set newdoc=db.createdocument
    newdoc.form= "Form1"
    Call newdoc.ComputeWithForm( True, True )
    Call newdoc.save(True,True)

注意:如果您的表单公式中存在任何错误,因为您忘记填写某些重要字段,则计算将无法完成,并且只会计算出现错误的字段之上的字段。此外,如果您必须在代码中发现错误,此函数可能会抛出错误(取决于参数,请查看文档)