|
|
|
| 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 |
|
|
|
|
| Статистика |
| Самые активные авторы |
Новые пользователи |
Наиболее просматриваемы темы |
|
|
|
|
|
|