Sub Postsave(Source As Notesuidocument)
Dim w As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set uidoc = w.CurrentDocument
Set doc = uidoc.Document
If doc.Log(0) <> "" Then
doc.Log = doc.Log(0) & Chr(10)
End If
doc.Log = doc.Log(0) & doc.name(0) & " " & doc.date(0) & " " & "test"
Call doc.Save (Flaid,True)
End Sub
lotus 设计日志记录
最新推荐文章于 2021-08-10 15:57:51 发布