Dim ses As New NotesSession
Call ses.SetEnvironmentVar("Names", "names.nsf,Dein Adressbuch", True)
Sub Click(Source As Button)
Dim ses As New NotesSession
Dim strNames As String
strNames = "names.nsf,neuesnames.nsf"
Call ses.SetEnvironmentVar("Names", strNames, True)
End Sub