Hast du schon einmal versucht, das Tool unter R5 zu benutzen ??
du kannst aber auch einmal dies Script probieren
Sub Initialize
Dim session As New notessession
Dim ws As New notesuiworkspace
Dim db As notesdatabase
Dim uiview As notesuiview
Dim coll As notesdocumentcollection
Dim firstdoc As notesdocument
Dim seconddoc As notesdocument
Dim Item2 As notesitem
Dim differences As String
Dim x As Integer
Dim rt1, rt2 As NotesRichTextItem
' *** Only for R5 clients
Dim version As String
Dim extract As String
version = session.NotesVersion
extract = Left(version, 9)
If extract <> "Release 5" Then
Messagebox "Important: Sorry, but this agent can only be used by an R5 client.", 0 + 64, "Sorry!"
Exit Sub
End If
Set db = session.currentdatabase
Set uiview = ws.currentview
Set coll = db.unProcessedDocuments
If coll.count < 2 Then
Messagebox "This process is designed to compare 2 documents",16,"Please select 2 documents"
Exit Sub
End If
' *** Get the 1st 2 selected docs, ignoring the rest
Set firstdoc = coll.getfirstdocument
Set seconddoc = coll.GetNextDocument( firstdoc )
' *** Loop through the fields on the documents
Forall i In firstdoc.Items
If Not i.Type = 1 Then ' ********* Text (or numeric) fields
Set Item2 = seconddoc.getfirstitem(i.name)
If Not Item2 Is Nothing Then
If i.valuelength > 0 Then
If Strcompare(Cstr(Item2.values(x)),Cstr(i.values(x)), 0) Then
differences = differences + i.name & ": First Value = (" & Cstr(i.values(x)) & ")" & Chr(10) & i.name & ": 2nd Value = (" & Cstr(Item2.values(x)) & ")"& Chr(10)
End If
End If
Else
differences = differences + i.name & ": First Value = (" & Cstr(i.values(x)) & ")" & Chr(10) & i.name & ": 2nd Value = (No field of this name)" & Chr(10)
End If
Else ' ******** Rich Text
Set rt2 = seconddoc.getfirstitem(i.name)
If Not rt2 Is Nothing Then
If i.valuelength > 0 Then
If Strcompare(Cstr(rt2.GetFormattedText(False, 70)),Cstr(i.GetFormattedText(False, 70)), 0) Then
differences = differences + i.name & ": First Value = (" & Cstr(i.GetFormattedText(False, 70)) & ")" & Chr(10) & i.name & ": 2nd Value = (" & Cstr(rt2.GetFormattedText(False, 70)) & ")"& Chr(10)
End If
End If
Else
differences = differences + i.name & ": First Value = (" & Cstr(i.GetFormattedText(False, 70)) & ")" & Chr(10) & i.name & ": 2nd Value = (No field of this name)" & Chr(10)
End If
End If
End Forall
If differences = "" Then
differences = "There were no differences between these two documents"
End If
Messagebox differences,0,"Comparison Results"
End Sub
