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

Тема в разделе "Oбщий функционал", создана пользователем allex, 24 сен 2009.

  1. allex

    allex Гость

    Код (LotusScript):
    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
     
    #1 allex, 24 сен 2009
    Последнее редактирование: 15 фев 2015
  2. samai

    samai Гость

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

    Кроме того это думаю не будет работать
    Код (Text):
    Set view = db.GetView("Connections")
    connect = "имя сервера подключения"       
    Set doc = view.GetDocumentByKey(connect)
    Представление Connections в первой строке содержит далеко не имя сервара ;)
    Да и метод view.GetDocumentByKey(connect) требует что бы первая строка была отсортирована
    :D
     
  3. nvyush

    nvyush Lotus team
    Lotus team

    Регистрация:
    22 апр 2009
    Сообщения:
    2.317
    Симпатии:
    0
    Во-первых, не в строке, а в столбце.
    Во-вторых, метод view.GetDocumentByKey(...) не требует, чтобы первый столбец была отсортирован, он ищет по первому сортированному столбцу (точнее, первый ключ — по первому сортированному столбцу, второй ключ — по второму и т.д.), учите матчасть.
    В-третьих, точнее, в-нулевых — этот раздел не для обсуждений, читайте Правила постинга в CodeBase
     
Загрузка...

Поделиться этой страницей