摘要：Sub Postopen(Source As Notesuidocument) If source.InPreviewPane Then Exit Sub Call cMemoObject.PostOpen(Source) If source.isnewdoc Then Call source.re 阅读全文

摘要：Sub Querymodechange(Source As Notesuidocument, Continue As Variant) On Error Goto e Dim s As New NotesSession Dim tmpN1 As NotesName Dim tmpN2 As Note 阅读全文