Просмотр сообщений - Daniil

Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - Daniil

Страницы: [1] 2 3 ... 5
1
IBM Lotus Notes & Domino / Проблема с папкой mail
« : 22 Август 2014, 12:11:11 »
Добрый день! Столкнулись со следующей проблемой, исчезла папка mail из domino administrator, пользователи соответственно не могут получить доступ к своим почтовым бд. Сама папка физически на сервере есть, но домино ее не отображает. Каким образом можно поправить данную проблему. Заранее благодарен!

2
IBM Lotus Notes & Domino / Оповещение в почте
« : 09 Июль 2014, 12:26:45 »
Спасибо большое))) уже тоже нашел, сразу не заметил....

3
IBM Lotus Notes & Domino / Оповещение в почте
« : 09 Июль 2014, 12:20:02 »
Добрый день! Появился такой вопрос, стоит ограничение на размер писем...если пользователь превышает данный размер то ему приходит оповещение от сервера что письмо не может быть доставлено...возможно ли изменить текст данного оповещения на сервере?

5
Доброго времени суток! Каким образом должна выглядить структура txt файла с данными о пользователе (имя, пароль и т.д.) при регистрации когда выбираешь импорт txt файла который содержит пользователей?

6
IBM Lotus Quickr / Чат в lotus quickr
« : 11 Июнь 2014, 09:49:44 »
Добрый день! Помогите разобраться, каким образом реализован обмен быстрыми сообщениями в lotus quickr? В настройках форума чат включен...а он нигде не отображается. Каким образом происходит подключение и настройка?

7
IBM Lotus Quickr / Темы оформления
« : 22 Май 2014, 15:01:16 »
Добрый день! У lotus quickr существуют только стандартные темы которые предоставляются с самого начала или есть возможность где то найти для него другие темы оформления?

8
Добрый день! Каким образом создается профайл пользователя в lotus connections? А то у меня работает только администратор, при создании нового пользователя он не может найти его профайл...

9
IBM Lotus Notes & Domino / Replace Design Log
« : 03 Март 2014, 13:45:19 »
а к Domino Administrator у Вас доступ есть?

10
Sub Initialize
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim docColl As NotesDocumentCollection
   Dim xlDoc As NotesDocument
   Dim xlApp As Variant
   Dim xlWorkBook As Variant
   Dim xlWorksheet As Variant
   Dim xlVersion As Variant
   Dim xlVersionInt As Integer
   Dim xlPath As Variant
   Dim xlRowCount As Integer
   Dim xlSheetCount As Integer
   Dim xlSheetName As String
   Dim ArrCount As Integer
   Dim ItemArray As Variant
   
   Set db = session.CurrentDatabase
   Set docColl = ws.CurrentView.Documents
   
   'Отмечены ли документы?
   If docColl.Count = 0 Then
      MsgBox "Не выбран документ"
      Exit Sub
   End If
   
   'создаем объект Excel
   Set xlApp = CreateObject("Excel.Application")
   'определяем версию Excel
   xlVersion = Split(xlApp.Application.Version, ".")
   xlVersionInt = xlVersion(0)
   'Показываем Excel
   xlApp.visible = True
   'Добавляем книгу
   xlApp.Workbooks.Add
   Set xlWorkbook = xlApp.Workbooks(1)
   'Создаем листы по количеству выделенных документов
         xlWorkbook.Worksheets(1).Copy(xlWorkbook.Worksheets(1))
      
   xlSheetCount = 1 'начинаем с первого листа
   Set xlDoc = docColl.GetFirstDocument 'берем первый документ из коллеции
   
   'До тех пор, пока не кончатся выбранные документы
   Do While Not(xlDoc Is Nothing)
      Set xlWorksheet = xlWorkbook.Worksheets(xlSheetCount) 'выбираем лист
      With xlWorksheet 'работаем с листом
         xlWorksheet.Activate 'Активируем лист
         'присваиваем имя Листу
         xlSheetName = "(" & CStr(xlSheetCount) & ") " & Left(xlDoc.Shop(0), 23) & "..."
         xlApp.ActiveSheet.Name = xlSheetName
         'печатаем заголовки столбцов
         xlRowCount = 1
         .Cells(xlRowCount, 1)= "FieldName"
         .Cells(xlRowCount, 2)= "FieldType"
         .Cells(xlRowCount, 3)= "FieldValue"
         xlRowCount = 2
         'Бежим по всем items документа
         ForAll item In xlDoc.Items
            If Not (item.Type = 1) Then 'если не rtitem
               ArrCount=0
               ItemArray = item.Values
               'Если длина массива не равна 0
               If UBound(ItemArray)<>0 Then
                  'Выгружаем все элементы массива
                  ForAll v In item.Values
                     .Cells(xlRowCount, 1)= item.Name & "(" & CStr(ArrCount) & ")"
                     .Cells(xlRowCount, 2)= item.type
                     .Cells(xlRowCount, 3)= item.Values(ArrCount)
                     xlRowCount = xlRowCount+1
                     ArrCount=ArrCount+1
                  End ForAll
               Else 'выгружаем значение item
                  .Cells(xlRowCount, 1)= item.Name
                  .Cells(xlRowCount, 2)= item.type
                  .Cells(xlRowCount, 3)= item.Values(0)
                  xlRowCount = xlRowCount+1
               End If
            Else 'выгружаем значение rtitem
               .Cells(xlRowCount, 1)= item.Name
               .Cells(xlRowCount, 2)= item.type
               .Cells(xlRowCount, 3)= item.Values
               xlRowCount = xlRowCount+1
            End If
         End ForAll
         'автовыравнивание по ширине
         xlApp.ActiveSheet.Columns.AutoFit
      End With               
      'переходим к следующему листу
      xlSheetCount = xlSheetCount+1
      'переходим к следующему документу в коллекции
      Set xlDoc = docColl.GetNextDocument(xlDoc)
   Loop
   'указываем путь и имя файла для сохранения
   xlPath = ws.SaveFileDialog(False, "Введите название для файла выгрузки", "Excel|*.xls", ,"DocFieldsExport.xls")
   
   If IsEmpty(xlPath) Then Exit Sub
   
   If 6 = MsgBox("Открыть созданный файл ?", 36,"DocFieldsExport to Excel") Then
      If xlVersionInt < 9 Then Exit Sub
      If xlVersionInt < 12 Then
         Call xlWorkbook.SaveAs(xlPath(0))       
         xlApp.visible = True
      Else
         Call xlWorkbook.SaveAs(xlPath(0), 56)
         xlApp.visible = True
      End If
   Else
      If xlVersionInt < 9 Then Exit Sub
      If xlVersionInt < 12 Then
         Call xlWorkbook.SaveAs(xlPath(0))       
         Call xlWorkbook.Close(True)
         xlApp=""
      Else
         Call xlWorkbook.SaveAs(xlPath(0), 56)
         Call xlWorkbook.Close(True)
         xlApp=""
      End If
   End If
   'Снимаем галочки в представлении
   Call ws.CurrentView.DeselectAll
End Sub

11
да понятное дело))) мне б хотя бы примерчик выгрузки 1 поля чтобы было из чего плясать)))) а то просто не особо в этом разбираюсь)))

12
Добрый день! Появился такой вопрос: есть скрипт для агента, но он выгружает все поля документа скопом в excel...каким образом можно выгружать определенные поля документа, например: registration_number, Registration_Date и т.д., заранее благодарен!

14
Добрый день! Появилась необходимость обновить почтовые базы данных всех пользователей на сервере, каким образом можно это сделать сразу для всех...а не дергать каждую базу по одиночке и делать replace design? Заранее благодарен!

15
Спасибо!

Страницы: [1] 2 3 ... 5