With this LotusScript code, you can allow authorized users or administrators to identify the read status of another user's email messages. This is helpful in a situation, for example, where a secretary needs to know what email the boss has or hasn't seen.
Please note the additional steps and code underneath this LotusScript code.
Lotusscript library called "UnreadMarks":
Declarations
------------
Const NOTE_CLASS_VIEW = 8
Const TYPE_TEXT = (5 * 256)
Const READ_BY_OWNER = "1"
Const UNREAD_BY_OWNER = "0"
Const READ_ITEM_NAME = "ReadByOwner"
Const INBOX = "($Inbox)"
Type DataRef
type As Integer
data As String*2
End Type
Declare Function NIFFindDesignNote Lib "nnotes.dll"
(Byval hdb As Long, Byval noteName As String,
Byval wFlags As Integer , NoteId As Long) As Integer
Declare Function NSFDbClose Lib "nnotes.dll"
(Byval hDb As Long) As Integer Declare Function
NSFDbGetUnreadNoteTable Lib "nnotes.dll"
(Byval hDb As Long, Byval UserName As String,
Byval NameLength As Integer, Byval Create As Integer,
hUnreadTable As Long) As Integer Declare Function
NSFDbOpen Lib "nnotes.dll" (Byval dbName As String,
hDb As Long) As Integer Declare Function
NSFDbSetUnreadNoteTable Lib "nnotes.dll" (Byval hDb
As Long, Byval UserName As String, Byval NameLength
As Integer, Byval Flush As Integer, Byval hOriginalTable As
Integer, Byval hUnreadTable As Long) As Integer Declare
Function NSFDbStampNotes Lib "nnotes.dll" (Byval hdb As
Long, Byval htab As Long, Byval itemname As String, Byval
itemlen As Integer, data As DataRef, Byval datalen As Integer)
As Integer Declare Function NSFDbUpdateUnread Lib
"nnotes.dll" (Byval hDb As Long, Byval hTable As Long) As
Integer Declare Function
NSFFolderGetIDTable Lib "nnotes.dll"
(Byval hviewDB As Long, Byval hdataDB As Long, Byval viewid
As Integer, Byval flags As Long, htable As Long) As Integer
Declare Function IDDestroyTable Lib "nnotes.dll"
(Byval hTable As Long) As Integer Declare Function IDEntries
Lib "nnotes.dll" (Byval hTable As Long)
As Long Declare Function
IDTableCopy Lib "nnotes.dll" (Byval hOriginalTable As Long,
hNewCopy As Long) As Integer
Declare Function OSLoadString Lib "nnotes.dll" (Byval hMod As
Long, Byval strCode As Integer, Byval strBuf As String, Byval
bufLen As Integer) As Integer Declare Function
OSPathNetConstruct Lib "nnotes.dll" (Byval portname As
String, Byval servername As String, Byval filename As String,
Byval pathname As String) As Integer
Dim status As Integer
Sub GetOwnerStatus
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim tserver As String
Dim tdatabase As String
Dim ownername As String
Dim username As String
Dim calprof As NotesDocument
Dim inboxlist As Long
Dim hDB As Long
Dim dbp As String*256
Dim dbpath As String
Dim itemname As String
Dim data As DataRef
Dim viewid As Long
Dim flags As Long
Dim iflags As Integer
Dim ownerlist As Long
Dim ownerreflist As Long
Dim userlist As Long
Dim userreflist As Long
Set db = session.CurrentDatabase
username = session.UserName
tserver = db.Server
tdatabase = db.FilePath
Set calprof = db.GetProfileDocument
("CalendarProfile")
If Not calprof Is Nothing Then
If calprof.HasItem("Owner") Then
ownername = calprof.GetItemValue("Owner")(0)
status = OSPathNetConstruct(Null, tserver, tdatabase, dbp)
dbpath = Trim$(dbp)
status = NSFDbOpen(dbpath, hdb)
If status <> 0 Then
Call ErrorHandling("Open db")
End If
status = NSFDbGetUnreadNoteTable(hDB, username,
Len(username), True, userlist)
If status <> 0 Then
Call ErrorHandling("Get old unread for userlist")
End If
status = IDTableCopy(userlist, userreflist)
If status <> 0 Then
Call ErrorHandling("Copy unread for userlist")
End If
status = NSFDbGetUnreadNoteTable(hDB, ownername,
Len(ownername), True, ownerlist)
If status <> 0 Then
Call ErrorHandling("Get old unread for ownlerlist")
End If
status = IDTableCopy(ownerlist, ownerreflist)
If status <> 0 Then
Call ErrorHandling("Copy unread for ownerlist")
End If
iflags = NOTE_CLASS_VIEW
status = NIFFindDesignNote(hDB, INBOX, iflags, viewid)
If status <> 0 Then
Call ErrorHandling("Get Inbox")
End If
flags = 0
status = NSFFolderGetIDTable(hDB, hDB, viewid, flags,
inboxlist)
If status <> 0 Then
Call ErrorHandling("Get ID table for Inbox")
End If
itemname = READ_ITEM_NAME
data.type = TYPE_TEXT
data.data = READ_BY_OWNER
status = NSFDbStampNotes(hDB, inboxlist,
itemname, Len(itemname), data, 3)
If status <> 0 Then
Call ErrorHandling("Stamp notes read")
End If
itemname = READ_ITEM_NAME
data.type = TYPE_TEXT
data.data = UNREAD_BY_OWNER
status = NSFDbStampNotes(hDB, ownerlist, itemname,
Len(itemname), data, 3)
If status <> 0 Then
Call ErrorHandling("Stamp notes unread")
End If
IDDestroyTable(ownerlist)
status = NSFDbGetUnreadNoteTable(hDB, ownername,
Len(ownername), True, ownerlist)
If status <> 0 Then
Call ErrorHandling("Get new unread for ownerlist")
End If
status = NSFDbSetUnreadNoteTable(hDB, ownername,
Len(ownername), True, ownerlist, ownerreflist)
If status <> 0 Then
Call ErrorHandling("Set unread for ownerlist")
End If
IDDestroyTable(userlist)
status = NSFDbGetUnreadNoteTable(hDB, username,
Len(username), True, userlist)
If status <> 0 Then
Call ErrorHandling("Get new unread for userlist")
End If
status = NSFDbSetUnreadNoteTable(hDB, username,
Len(username), True, userlist, userreflist)
If status <> 0 Then
Call ErrorHandling("Set unread for userlist")
End If
IDDestroyTable(ownerlist)
IDDestroyTable(ownerreflist)
IDDestroyTable(userlist)
IDDestroyTable(userreflist)
IDDestroyTable(inboxlist)
status = NSFDbClose(hDB)
If status <> 0 Then
Call ErrorHandling("Close db")
End If
ws.ViewRefresh
End If
End If
Sub ErrorHandling(func As String)
Dim msgbuf As String *256
Dim msg As String
Call OSLoadString(0, status, msgbuf, 256)
msg = Trim$(msgbuf)
Print "Error during [" + func +
"] " + msg End Sub
In your Lotus Notes inbox, add an icon column
(3rd from the left) with this Formula language code:
@If(ReadByOwner="1"; 56; 0)
and this hide-when formula:
@GetProfileField("CalendarProfile"; "Owner")=@UserName
Then add an action (with the same hide-when formula) called "Get owner status" with this statement:
Call GetOwnerStatus
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip library by member Rob Goudvis. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.
This was first published in December 2007
