Delete duplicate emails in archive database

Thank qwaletee!

That's very helpful. Let me try to disgest the information first. I haven't create any view on Lotus Notes before nor writing VBScript. There's always a first time I suppose. Actually I happen to have access to one of the computer which has Domino Designer installed. I'll give your VBScript a test first, shouldn't let your effort go into waste without trying.

Will update you when I get to try the above later. Thank again.

Cheers.

Good news and Bad news. Good news - I managed to get the view working. Bad news - the VBScript doesn't work, return an error " Object doesn't support this property or method: 's.CreateDatabase' ".

Now I'm going through the help topics on the Lotus Notes application and see if I can using qwaletee vbscript solution as a guide to create an equivalent lotusscript. Wish me luck folks.

Spent a couple of hours looking at LotusScript. Quite a fair bit to learn. I can briefly understand the examples but just can't seem to get the program working. I can't seem to be able to find detailed information on the LotusScript programming methods too.

qwaletee or anyone else, if you are able to provide me the solution in LotusScript, I will be deeply appreciated as I can concentrate on my project work.

Thank Folks!

Should have been s.GetDatabase, my mistake.

I nly suggested VBScript because LotusScript requires you to have the Designer client installed.  The code woudl be identical in LotusScript except that:

    Set s = CreateObject("Notes.NotesSession")
becomes
    Dim s As New NotesSession

Plus, you can declare types for the other variables -- db As NotesDatabase, view as NotesView, contents as notesViewEntryCollection, row as notesViewEntry

Thank qwaletee.

I've tried the VBScript again and I ran into another error at line 5 "Object required: 'view' ".

Just to make sure I'm doing the correct stuffs, this is what I've done so far -

- Launch Lotus Notes and open my Archive database
- Created a SORT DUPS view in the Archive database
- Created a VBScript name SORTDUPS.VBS and saved it to C:\
- Double click on the SORTDUPS.VBS file icon in Windows Explorer at C:\

My question - I'm curious how is the VBScript able to connect and perform actions on the
archive if it's not running inside Lotus Notes. Did I miss out any pre-requirement or settings
that I have to check?

Another Qns,

I've tried creating the LotusScript based on qwaletee VBScript. The script is as below

Dim s As New NotesSession      
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim contents As NotesViewEntryCollection
  Dim row As NotesViewEntry
  Dim nextRow As NotesViewEntry
      
  Set db = s.GetDatabase("","") 'merely gets access to a "generic" Notes database
  db.OpenMail 'switch genetic to mail
  Set view = db.getView("SORT DUPS")
  Set contents = view.AllEntries
  Set row = contents.getFirstEntry
  col1 = row.columnValues(0)
  col2 = row.columnValues(1)
  col3 = row.columnValues(2)
  col4 = row.columnValues(3)
  Set row = contents.getNextEntry(row)
  Do Until row Is Nothing
      Set nextRow = contents.getNextEntry(row)
            
      If col1 = row.columnValues(0) And col2 = row.columnValues(1) And col3 = row.columnValues(2) And col4 = row.columnValues(3) Then
          row.document.remove
     Else
         col1 = row.columnValues(0)
         col2 = row.columnValues(1)
         col3 = row.columnValues(2)
         col4 = row.columnValues(3)
     End If
     Set row = nextRow
Loop

But I face an error when trying to save the script. Error is "Missing arguement for: REMOVE"
The error is refering to "row.document.remove" if I'm not mistaken.

I've tried looking at the reference for NotesViewEntry which row is an instant of. The arguement should be
(Byval Force As Integer) which I'm not sure what I should subsitute in. I've tried (0), it allow me to save the script but I'm not sure if I'm doing the correct thing.

Lastly, where do I save this script in and how do I execute it.

Folks, thank for being patient with me. Especially qwaletee. Thank mate!

I've just manage to figure out how to run the script. I've created an agent and under Runtime, I've selected "Actions menu selection" and for trigger "On event" and for target "All documents in view".

My progress - I think i figure out why the row.document.remoe doesn't work, it need a arguement of either True or False.But even when i use row.document.remove(True), I encounter a "object variable not set" when I run the agent. Seem like the problem comes at  "Set contents = view.AllEntries" . Anyone got any clue?

I apologise for not closing the thread earlier.  Somehow I didn't manage to get the script running and just used the manual to delete all the duplicates one by one.  But again, like to thank qwaletee for his suggestions and codes, it does guide me towards the right direction.

Hi all,
I worked on the same requirement and now I came to this conclusion. The error message is because this view is not a part of collection of views returned by DB.views.

There is a slight code modification required to return the views in a db which I have done here is the code.

If this post is still alive then please move this forward.

The question un-answered is that why is our newly created view not showing as a part of DB.views

Code here
** this includes commented code as well which I am using for testing.
=====================================================
Sub Initialize
      Dim s As New NotesSession      
      Dim myv As NotesView
      Dim contents As NotesViewEntryCollection
      Dim row As NotesViewEntry
      Dim nextRow As NotesViewEntry
      Dim db As New NotesDatabase( "", "arc_mash_1.nsf" )
      If db.IsOpen Then
            Print  "The database arc_mash_1.nsf already open"
      End If
      
      Print db.filename
      ' status = db.Open("","arc_mash_1.nsf")  
      '
'      Set view = db.getView("SortByDuplicates")
      
      Print "====================================================="      
      
      Forall v In db.Views
            If v.name Like "*S*" And Not  v.name Like "GME*" Then
                  Print  v.name
            End If
      End Forall
      Print "====================================================="
'      Set myv = db.GetView("anyview")
'      Msgbox myv.Name
      
'      Set contents = view.AllEntries
'      Set row = contents.getFirstEntry
'      col1 = row.columnValues(0)
'      col2 = row.columnValues(1)
'      col3 = row.columnValues(2)
'      col4 = row.columnValues(3)
'      Set row = contents.getNextEntry(row)
'      Do Until row Is Nothing
'            Set nextRow = contents.getNextEntry(row)
'            If col1 = row.columnValues(0) And col2 = row.columnValues(1) And col3 = row.columnValues(2) And col4 = row.columnValues(3) And col5 = row.columnValues(4) Then
'                  row.document.delete
'            Else
'                  col1 = row.columnValues(0)
'                  col2 = row.columnValues(1)
'                  col3 = row.columnValues(2)
'                  col4 = row.columnValues(3)
'                  col5 = row.columnValues(4)            
'            End If
'            Set row = nextRow
'      Loop
End Sub
===========================================================