S
San4el
Добрового времени суток всем!
Ай нид хелп:
Копирую в документ два разных файла (но с одинаковыми именами) из двух разных документов, после чего в итоговом документе отображаются иконки на эти файли, но при откытии любого из них открывается один и тот же(первый).
Как это исправить?
Вот код:
[codebox]
Dim rtitemA As Variant
Dim rtitemB As Variant
Dim Doc as NotesDocument
Set doc = ResultCol.GetFirstDocument
Set rtitemA = nd.GetFirstItem( "Att" )
If rtitemA Is Nothing Then
Set rtitemA = New NotesRichTextItem(nd, "Att")
End If
While Not doc Is Nothing
Set rtitemB = doc.GetFirstItem("Att") Call rtitemA.AddNewLine(1)
Call rtitemA.AppendRTItem( rtitemB )
Set doc = ResultCol.GetNextDocument(Doc)
Wend
[/codebox]
А если добавляю тоже самое вручную, то все нормально: Два разных файла с одинаковыми названиями
Ай нид хелп:
Копирую в документ два разных файла (но с одинаковыми именами) из двух разных документов, после чего в итоговом документе отображаются иконки на эти файли, но при откытии любого из них открывается один и тот же(первый).
Как это исправить?
Вот код:
[codebox]
Dim rtitemA As Variant
Dim rtitemB As Variant
Dim Doc as NotesDocument
Set doc = ResultCol.GetFirstDocument
Set rtitemA = nd.GetFirstItem( "Att" )
If rtitemA Is Nothing Then
Set rtitemA = New NotesRichTextItem(nd, "Att")
End If
While Not doc Is Nothing
Set rtitemB = doc.GetFirstItem("Att") Call rtitemA.AddNewLine(1)
Call rtitemA.AppendRTItem( rtitemB )
Set doc = ResultCol.GetNextDocument(Doc)
Wend
[/codebox]
А если добавляю тоже самое вручную, то все нормально: Два разных файла с одинаковыми названиями