Issue:
Have following error on a mail file or app during replication:
"Attachment found on more than one document"
To find out which note (document) in the mail file or app, we had to change the replication logging to 2.
Admin client --> Server (tab) --> Server Console
> set config LOG_Replication=2
> rep noah mail/testuser.nsf
We then received a message that included the NoteID:
02/21/2019 02:56:24 PM Unable to store document in Noah/Mindwatering mail/testuser.nsf (NoteID = 243914) from mail\testuser.nsf (NoteID = 250014): Attachment found on more than one document.
The fix is to save one side, replicate and save the other side's note.
As we already have the MW Utility App, we created a new form called, NoteID Finder (form name NI), with the fields NI_Svr, NI_App, NI_NoteID and Go button.
The button ran the following code:
Dim w As New NotesUIWorkspace
Dim s As New NotesSession
Dim uiDoc As NotesUIDocument ' this utility NI form
' target dims
Dim tsvrnm As String ' target server
Dim tappnm As String ' app filepath
Dim tnoteid As String ' target document note noteid
Dim tDb As NotesDatabase
Dim tDoc As NotesDocument ' target noteid doc in app
On Error Goto SErrorHandler
' get info and locate doc
Set uiDoc = w.CurrentDocument
Call uiDoc.Refresh() ' used to perform trim
tsvrnm = uidoc.FieldGetText("NI_Svr")
tappnm = uidoc.FieldGetText("NI_App")
tnoteid = uidoc.FieldGetText("NI_NoteID")
If (tsvrnm = "") Then
Msgbox "Cancelled. Missing server.",, "Aborted"
End If
If (tappnm = "") Then
Msgbox "Cancelled. Missing app filepath.",, "Aborted"
End If
If (tnoteid = "") Then
Msgbox "Cancelled. Missing NoteID of the document note to retrieve and display.",, "Aborted"
End If
Set tDb = s.GetDatabase(tsvrnm, tappnm, False)
If (tDb.IsOpen) Then
Set tDoc = tDb.GetDocumentByID( tnoteid)
If Not (tDoc Is Nothing) Then
Call w.EditDocument(False, tDoc)
Else
Msgbox "Unable to locate document using noteid (" & tnoteid & "). Please verify mail file path, and you have access.", 48,"Error Locating Note"
End If
Else
Msgbox "Unable to open (" & dbpath & "). Please verify server, file path, and confirm you have access.", 48,"Error Opening App"
End If
SExit:
Exit Sub
SErrorHandler:
Print "Error: " & Cstr(Err) & ", " & Error$ & ", line: " & Cstr(Erl) & "."
Resume SExit
previous page
|