ISMessage.Seen

Description

This property is True if the message is seen.

Syntax

object.Seen

Part	Attribute	Type	Description
`object`	Required	ISMessage	The `object` always implements the ISMessage interface

Return Value

bool

Example

Display True if the message is seen.

Dim aProvider
Dim aParams
Dim aMessages
Dim aMessage
Dim aInfo
Dim i

Set aProvider = Profile.LoadProvider("ADMIN")
set aParams = Profile.CreateLoadMessagesParams(aProvider.Id)
aParams.ProviderId = aProvider.Id
aParams.SentAfter = #12/12/2018#
set aMessages = Profile.LoadMessages(aParams)

aInfo = "Messages Count = " & aMessages.Count
for i = 0 to aMessages.Count - 1  
  set aMessage = aMessages.Item(i)
  aInfo = aInfo & vbNewLine & "The message seen: " & aMessage.Seen
next 

Profile.MsgBox(aInfo)

Note:

In Profile Client v8 on User Interface Seen Messages are not in bold and can be found in Organisation > Work Centre > Communication > Email.

Version information

Added in v7.8.0