呼叫時代入文件id

Dim agent As NotesAgent

Set agent = db.GetAgent("apply")

agent.RunOnServer(doc.NoteID)