编辑后创建两个保存选项

Question

我想创建两个保存选项按钮。我有一个带手动保存的版本跟踪选项。我创建了一个保存选项，可以在不添加版本的情况下保存。因此，要添加版本，我需要单击“文件>另存为新版本”。

对于手动保存，有一个选项，我需要单击“另存为新版本”。

所以，我想添加另一个保存按钮，当用户点击它时，它将保存为新版本。所以我不必点击“文件>另存为新版本”。

以下是我保存而不保存为新版本。

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim workspace As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument

    Set uidoc = workspace.CurrentDocument
    Set db = session.CurrentDatabase
    vpswd = Inputbox$("Pls input code to save :")

    If vpswd = "o" Then

        uidoc.EditMode = True
'       Call uidoc.FieldSetText("ALStatus" , "Draft")
        Call uidoc.FieldSetText("SaveOptions" , "1")
        Call uidoc.Save
'       uidoc.EditMode = False
        Call uidoc.Close
    End If
End Sub

如何实现为“另存为新版本”创建LotusScript？

Answer 1

NotesUIDocument类有一个SaveNewVersion方法，所以你应该能够从现有按钮复制代码，然后只需更改副本中的这一行：

 Call uidoc.Save

对此：

 Call uidoc.SaveNewVersion

通过查看Notes客户端附带的帮助，我花了大约5分钟来完成这项工作。你应该也能做同样的事情。