LOTUSSCRIPT /COM/OLE のクラス
Sub Querysave(Source As Notesuidocument, _ Continue As Variant) Dim session As New NotesSession Call session.SetEnvironmentVar _ ("HomeTown",source.FieldGetText("HomeTown")) End Sub