Sorry to bother the list. My hands were to fast and my brain to slow (as usually :D )
PsMessageReaded(id = myId, idEmployee=3, dateAdd =  tStamp)

This code works:
PsMessageReaded(idMessage = myId, idEmployee=3, dateAdd =  tStamp)