摘要：1.入口函数Sub ImportContact(docType As String) On Error Goto handler Dim s As New NotesSession Dim w As New NotesUIWorkspace Dim uidoc As ... 阅读全文

摘要：Sub Click(Source As Button) Dim ss As New NotesSession Dim ws As New notesuiworkspace Dim CurDB As NotesDatabase Dim db As NotesDatab... 阅读全文

摘要：1 Dim wks As New NotesUIWorkspace 2 Dim uidoc As NotesUIDocument 3 Dim doc As NotesDocument 4 Dim rtitem As Variant 5 Dim object ... 阅读全文