lotus-notes - 编辑后创建两个保存选项

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？

标签： lotus-noteslotus-dominodomino-designer-eclipse

Answer 1

该类NotesUIDocument有一个SaveNewVersion方法，因此您应该能够从现有按钮中复制代码，然后只需在副本中更改此行：

 Call uidoc.Save

对此：

 Call uidoc.SaveNewVersion

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