Sub Initialize Dim session As New NotesSession Dim context As NotesDocument Set context=session.Documentcontext Print |<message>|+"接收到的数据"+context.Query_String(0)+|</message>| End Sub