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

  • Автор темы allex
  • Дата начала
A

allex

#1
Код:
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
 
Последнее редактирование:
S

samai

#2
Пожалуйста не вводите людей в заблуждение. Это создание документа Соединения (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.
:D
 

nvyush

Lotus team
22.04.2009
2 317
0
#3
Кроме того это думаю не будет работать

Код:
Set view = db.GetView("Connections")
connect = "имя сервера подключения"		
Set doc = view.GetDocumentByKey(connect)
Представление Connections в первой строке содержит далеко не имя сервара wink.gif
Да и метод view.GetDocumentByKey(connect) требует что бы первая строка была отсортирована
Во-первых, не в строке, а в столбце.
Во-вторых, метод view.GetDocumentByKey(...) не требует, чтобы первый столбец была отсортирован, он ищет по первому сортированному столбцу (точнее, первый ключ — по первому сортированному столбцу, второй ключ — по второму и т.д.), учите матчасть.
В-третьих, точнее, в-нулевых — этот раздел не для обсуждений, читайте Правила постинга в CodeBase