Изменить автоматически Location и Connection

[TIA]

вообще забейте на инишник и тупо берите names.nsf из /notesdata клиента
в инишнике нет никаких переменных ФИО_names,

Не торопитесь с выводами. Это скорее всего мультипользовательская инсталляции Нотуса.

 

[Klido]

в нотес.ини в переменной NAMES что написано у клиента???

 

[oleg7]

	 ' first, get the local NAB
sNamesLine = session.GetEnvironmentValue("names",True)

nPos = Instr(sNamesLine, ",")
If nPos > 0 Then 
sNamesLine = Left$(sNamesLine, nPos-1)
Else
sNamesLine = "names.nsf"
End If
Set dbNab = New NotesDatabase( "",sNamesLine )

If Not(dbNab.isOpen) Then

можно сделать в этой части, чтобы проверяло все локальные базы, в которых есть names и потом дальше работало именно с ними?

в нотес.ини в переменной NAMES что написано у клиента???

например
NAMES =test_names.nsf
test-фамилия пользователя

 

[Klido]

хелп: перебирает локальные книги - тогда выбирайте какую надо (в идеале она одна) - тоже выше написали уже...

Examples: IsPrivateAddressBook property
This agent displays the Personal Address Book databases known to the current session.

Sub Initialize
Dim session As New NotesSession
Dim privates As String
Forall db In session.AddressBooks
Call db.open("", "") ' Must open database
If db.IsPrivateAddressBook Then
privates = privates & db.Server & " " & _
db.FilePath & Chr(13)
End If
End Forall
If privates = "" Then privates = "None"
Messagebox privates,, "Personal Address Book databases"
End Sub

Related information
IsPrivateAddressBook property

Добавлено: ну и наконец... IBM Вам в помощь

Ссылка скрыта от гостей

Добавлено: кстати, я и забыл - ещё 7 лет назад заюзали именно тему автогенерации коннекшена - ДА - неважно как имя локальной базы, автоматом сгенерит в той, что надо