IMAP shared folders and unread/read marks

HCL Domino Domino Forum
1

Hello,

I want to share my folders with other user using IMAP protocol. I access to the mailbox with a mail client and Notes client.

I delegate access to other users’ folders and give permissions in the ACL.

Others users can see these messages but the problem is that this folders aren´t synchronized.

When I read a message in my mailbox has a read mark, but in the subscribed folder this message maintains the unread mark. I need to synchronize this read/unread marks.

Also, I make some scripts using standard protocol IMAP in other programming languages to access to the mailbox. I can suscribe folders and see the suscribed folders but it doesn´t allow me share folders, shows me the error “ACL not available on this IMAP server”.

Can someone help me?

Thank a lot.

2

Subject: IMAP shared folders and unread/read marks

Regarding the unread/read marks: you could copy them from one application to another application using Lotusscript and a few C API calls.

Here is a copy of some code I posted last May. It does not do the job directly, but it can be used as a start. For more functions have a look at the C API SDK Help file.

[declarations]

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 NSFDbUpdateUnread Lib “nnotes.dll” (Byval hDb As Long, Byval hTable As Long) As Integer

Declare Function IDTableIntersect Lib “nnotes.dll” (Byval hTable1 As Long, Byval hTable2 As Long, hTable As Long) 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

Declare Function NSFNoteUpdate Lib “nnotes.dll” (Byval hNote As Long, Byval UpdateFlags As Integer) As Integer

[code]

Dim dbp As String*256

Dim dbpath As String

Dim status As Integer

Dim ownerlist As Long

Dim delegatelist As Long

Dim combinedlist As Long

Dim hDB as Long

status = OSPathNetConstruct(Null, , , dbp)

dbpath = Trim$(dbp)

status = NSFDbOpen(dbpath, hdb)

status = NSFDbGetUnreadNoteTable(hDB, , Len(), True, ownerlist)

status = NSFDbUpdateUnread(hDB, ownerlist)

status = NSFDbGetUnreadNoteTable(hDB, , Len(), True, delegatelist)

status = NSFDbUpdateUnread(hDB, delegatelist)

status = IDTableIntersect(ownerlist, delegatelist, combinedlist)

status = NSFDbSetUnreadNoteTable(hDB, < delegatename >, Len(), True, delegatelist, combinedlist)

IDDestroyTable(ownerlist)

IDDestroyTable(delegatelist)

IDDestroyTable(combinedlist)

status = NSFDbClose(hDB)

3

Subject: RE: IMAP shared folders and unread/read marks

Thank you very much Rob.