Создание документа Location в локальной АК

[allex]

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim allnabs As Variant
allnabs=session.addressbooks
Forall books In allnabs
If books.isprivateaddressbook Then
If Not(Books.isopen) Then
Call Books.open("",books.filename)
Set db = books
End If
End If
End Forall       

Set view = db.GetView("Connections")
connect = "имя сервера подключения"       
Set doc = view.GetDocumentByKey(connect)
If Not doc Is Nothing Then
Print "Документ подключения " & connect &" уже есть"
Else
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.ComposeDocument( "", db.filename, "local" )
Call uidoc.FieldsetText("Destination","notes-имя сервера подключения")
Call uidoc.FieldsetText("OptionalNetworkAddress","dns-имя сервера подключения")
Call uidoc.FieldsetText("PortName","TCPIP")
Call uidoc.FieldsetText("LanPortName","TCPIP")
Call uidoc.Save
Call uidoc.Close
Print "Документ подключения " & connect &" cоздан"
End If

 

[samai]

Пожалуйста не вводите людей в заблуждение. Это создание документа Соединения (Connection).

Кроме того это думаю не будет работать

Set view = db.GetView("Connections")
connect = "имя сервера подключения"		
Set doc = view.GetDocumentByKey(connect)

Представление Connections в первой строке содержит далеко не имя сервара
Да и метод view.GetDocumentByKey(connect) требует что бы первая строка была отсортирована

For the GetAllDocumentsByKey method to work, you must have at least one sorted column for each key.

 

[nvyush]

Кроме того это думаю не будет работать

Set view = db.GetView("Connections")
connect = "имя сервера подключения"		
Set doc = view.GetDocumentByKey(connect)

Представление Connections в первой строке содержит далеко не имя сервара wink.gif
Да и метод view.GetDocumentByKey(connect) требует что бы первая строка была отсортирована

Во-первых, не в строке, а в столбце.
Во-вторых, метод view.GetDocumentByKey(...) не требует, чтобы первый столбец была отсортирован, он ищет по первому сортированному столбцу (точнее, первый ключ — по первому сортированному столбцу, второй ключ — по второму и т.д.), учите матчасть.
В-третьих, точнее, в-нулевых — этот раздел не для обсуждений, читайте link removed