|
|
|
04/16/2015 04:49:57 PM |
Импорт DXL-описания документов в Lotus Domino. Одноимённые поля |
Регистрация: 04/24/2009
Сообщений: 150 |
Добрый день, коллеги! Попробовал сделать LotusScript'ом экспорт-импорт почты через DXL - получил засаду Когда в документе несколько одноимённых айтемов (Body, Revisions) - в DXL остаётся несколько айтемов - а вот в полученном сымпортированном документе - только последний
Клиента Domino использую 7.0.3 и 8.5.3 Пытался использовать и метод process, и метод import
Вот код
Private Function importFromXML As Variant If Me.targetDatabase Is Nothing Then Messagebox "Не получен объект базы данных", 48, "Ошибка выполнения" : Exit Function ' Выбрать файл XML-описания Dim filename As String Dim filepath As Variant ' filename = "docs." & Me.targetDatabase.filename & ".xml" filePath = Me.session.getEnvironmentString("FileDlgDirectory", True) Dim workspace As New NotesUIWorkspace filepath = workspace.openFileDialog(False, "Импортировать из файла XML-описания", "Файлы XML-описаний|*.xml|Все файлы|*.*", filePath, filename) If Isempty(filepath) Then Exit Function If Isarray(filepath) Then filePath = filePath(0) ' Print "XML-описание сохраняется в файл", filePath Dim stream As NotesStream Set stream = Me.session.CreateStream If Not stream.open(filepath) Then Messagebox "Не удалось открыть файл " & filepath, 48, "Ошибка выполнения" : Exit Function If stream.Bytes = 0 Then Messagebox "Файл " & filepath & " не существует или пустой", 48, "Ошибка выполнения" : Exit Function Dim importer As NotesDXLImporter Set importer = Me.session.createDXLImporter importer.replaceDBProperties = False importer.createFTIndex = False importer.replicaRequiredForReplaceOrUpdate = False importer.aclImportOption = DXLIMPORTOPTION_IGNORE importer.designImportOption = DXLIMPORTOPTION_IGNORE importer.documentImportOption = DXLIMPORTOPTION_UPDATE_ELSE_CREATE importer.inputValidationOption = VALIDATE_NEVER On Error Goto errhandler Call importer.import(stream, Me.targetDatabase) On Error Goto 0 Call stream.close importFromXML = True Messagebox "Импорт документов завершён. Импортировано документов: " & Cstr(importer.importedNoteCount), 64, "Импорт документов" Exit Function errhandler: Call stream.close Exit Function Resume Next End Function
Может быть, что-то забыл выставить?
|
|
|
04/16/2015 05:00:18 PM |
|
Регистрация: 04/24/2009
Сообщений: 150 |
 Оригинальный документ
 импортированный документ
|
|
|
04/17/2015 06:12:53 PM |
|
Регистрация: 04/24/2009
Сообщений: 150 |
Продолжу... Проблема возникает только для документов с MIME Задавая свойство MIMEOption для NotesDXLExporter (для R8) можно получить в двух форматах - MIME и RAW, но импорт в базу этих документов из формата RAW - сохраняется только последний одноимённый айтем, из формата MIME я вообще смог импортировать только два поля - Form и SMTPOriginator
|
|
|
04/17/2015 06:14:12 PM |
|
Регистрация: 04/24/2009
Сообщений: 150 |
Чисто лотусовое письмо с RichText импортируется на ура
|
|
|
|
Дополнительно |
Статистика форума |
Именинники |
 |
Новый пользователь: Олег Изосимов
Участников: 246
Тем: 166
Сообщений: 415 |
|
|
|
|
Статистика |
Самые активные авторы |
Новые пользователи |
Наиболее просматриваемы темы |
|
|
|
|
|
|