Notes error: Anhang wurde bei mehr als einem Dokument gefunden

[chriss76]

Hallo Kollegen,

folgendes Coding kopiert einen Anhang von einem RT-Feld in ein anderes RT-Feld.
Das funktioniert auch anscheinend brav, bis zu dem Augenblick des Speicherns.

Dann kommt die Fehlermeldung:
Notes error: Anhang wurde bei mehr als einem Dokument gefunden

Was kann ich tun??

Vielen Dank und viele Grüsse

Chris


Sub MoveRTField (nd As NotesDocument,strFieldFrom As String, strFieldTo As String, appendUsername As Integer)
   
   Stop
   
   Dim nrtiTo As NotesRichtextItem
   Dim nrtiFrom As NotesRichtextItem
   If nd.HasItem(strFieldTo) Then   
      Set nrtiTo =nd.GetFirstItem(strFieldTo)
   Else
      Set nrtiTo =nd.CreateRichtextItem(strFieldTo)
   End If
   Set nrtiFrom =nd.GetFirstItem(strFieldFrom)
   
   If Not (nrtiFrom.Text="" And Isempty(nrtiFrom.EmbeddedObjects)) Then
      If Not nrtiTo.Text="" Then
         Call nrtiTo.AddNewLine(2)
      End If
      If appendUserName Then
         Dim ns As New NotesSession
         Call nrtiTo.AppendText(Cstr(Now) + ", ")
         Call nrtiTo.AppendText(FormatName("ABBREVIATE",ns.Username))
         Call nrtiTo.AddNewLine(1)
      End If
'      Call nrtiTo.AppendRTItem(nrtiFrom)
'      Call nrtiTo.AddNewLine(1)
      Call nd.CopyItem(nrtiFrom,strFieldTo)
      Call nrtiFrom.Remove
   End If
End Sub

[pete_bla]

Hi,

Möglicherweise kann ja das Problem damit zusammenhängen,
dass Du hier im selben Dokument das Attachment von einen Feld ins andere schieben willst.

Da aber Notes das Attachment nicht nur im RT-Feld selbst speichert, sondern im Feld $File, gibts hier eine Kollision des Attachments mit sich selbst.

Vorschlag:
Hast Du schon versucht, das Attachment ersteinmal aus dem Doc zu lösen (extract oder in ein anderes Doc),
es dann im Doc zu löschen (ev. zwischenspeichern)
und wieder in das neue Feld zu setzen?

Vielleicht kannst Du auch erklären warum du den Anhang im Doc selbst verschieben willst,
möglicherweise gibts eine einfachere/elegantere Lösung.

Grüsse, Pete(r)

[chriss76]

Hallo Peter,

zur Erklärung, warum ich den Anhang von einem Feld in ein anderes Feld im selben Dokument schieben will:

Das Dokument ist eine Art Workflow, bei dem jede Person ein Dokument anhängen kann, allerdings sollen die bereits angehängten Dokumente nicht gelöscht werden können.

Viele Grüsse

CHris

[pete_bla]

Hi,

ich verstehe dann immernochnicht warum Du den Anhang verschieben willst.
Er kann doch da bleiben wo er ist.
Oder schreiben in deinem Workflow alle in das selbe Feld ?

Gruss, Pete(r)

[koehlerbv]

Sowas geht natürlich SO nicht 
Nimm für solche Stunts ein Hilfsdokument (was Du ja nicht speichern musst). Dann klappts auch mit dem Nachbarn 

Bernhard