If by "current document" you mean a the selected document in a view, you can use
ToolsMarkSelectedRead @Command
In a view or folder, marks all of the selected documents as read.
Syntax
@Command( [ToolsMarkSelectedRead] )
Usage
- A database must be open at the view level
or
- A document must be open in Read or Edit mode
Note In some databases, there is no difference in the display of read and unread documents in views and folders.
This command does not work on the Web.
Also, unless it s a new method in R8, NotesDocument.MarkRead is not an existing method. The only way you could do this would be to call NotesDocument.Save, and pass in true for the markRead parameter:
flag = notesDocument.Save( force, createResponse [, markRead ] )