编辑后创建两个保存选项

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

我花了大约5分钟的时间来解决Notes客户端附带的帮助问题。您应该能够做到这一点。