PostDragDrop issue with uidatabase

We are looking to make a slight modification to the mail template to help with multi-user inboxes. Basically, we want the postdragdrop event to update all documents that get dragged and dropped between folders with information about who dragged & dropped it, the original folder and the destination folder.

However, it seems that the notesuidatabase generated by the postdragdrop event does not contain the documents being dragged, but the next document the cursor aligns on AFTER the event has taken place. Our inserted code looks like this:

Dim ws As New NotesUIWorkspace

Dim MyUIView As NotesUIView

Dim sess As New NotesSession

Dim dc As NotesDocumentCollection

Dim note As notesdocument

Set MyUIView = ws.CurrentView

Set dc = source.Documents

Set note=dc.GetFirstDocument

While Not note Is Nothing

note.FolderInfo=("Moved from " & uiview.ViewName & " to " & EntryName & " by " & sess.CommonUserName & " on " & Cstr(Now))

call note.save(true,false)

Set note=dc.GetNextDocument(note)

Wend

In each case, the script seems to update the one document left behind in the original folder instead of the three documents being moved.

I suspect interaction with the embedded eclipse portions of the mail template are responsible as this works very well in the basic client but not with the full client.

If anyone has any suggestions as to how this can be resolved, Id be very grateful to hear of them.

Thanks,

Matt

Subject: Update

This seems to be fixed in 8.5.1 FP1.