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