呼叫時依文件id

Dim ss As New NotesSession

Dim db As NotesDatabase

Dim agent As NotesAgent

Dim doc As NotesDocument

Set db=ss.CurrentDatabase

Set agent=ss.CurrentAgent

Set doc=db.GetDocumentByID(agent.ParameterDocID)