例: 環境変数を使用する

次のボタンの例は、環境変数 $SeqNo を 1 大きくして、その結果を出力します(このスクリプトは、連番のシステムを持つサーバーでは正しく実行されない場合があります)。

Sub Click(Source As Button)
  Dim session As New NotesSession
  seqNo = session.GetEnvironmentValue("SeqNo")
  If Isempty(seqNo) Then
    Call session.SetEnvironmentVar("SeqNo", 1)
  Else
    seqNo = seqNo + 1
    Call session.SetEnvironmentVar _
    ("SeqNo", Cint(seqNo))
  End If
  Messagebox session.GetEnvironmentValue("SeqNo")
End Sub

次のエージェントの例では、システム環境変数の値を出力します。環境変数は数値または文字列で、GetEnvironmentString を使用して取得します。GetEnvironmentString の 2 番目の引数が True であるため、環境変数の名前にドル記号は付きません。
```
Sub Initialize
  Dim session As New NotesSession
  envVarName = Inputbox$("Environment variable name")
  envVar = session.GetEnvironmentString(envVarName, _
  True)
  If envVar = "" Then
    Messagebox(envVarName & " not set")
  Else
    Messagebox(envVarName & " = " & envVar)
  End If
End Sub
```