The number of the messages to be shown on the page.
object.CountOnPage
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISLoadMessagesParams interface |
int
Display the number of messages loaded on the basis of the selected filter and the information about them.
Dim aProvider
Dim aFilter
Dim aMessages
Dim aMessage
Dim aInfo
Dim i
Set aProvider = Profile.LoadProvider("ADMIN")
set aFilter = Profile.CreateLoadMessagesParams(aProvider.Id)
aFilter.CountOnPage = 10
set aMessages = Profile.LoadMessages(aFilter)
aInfo = "Messages Count = " & aMessages.Count
for i = 0 to aMessages.Count - 1
set aMessage = aMessages.Item(i)
aInfo = aInfo & vbNewLine & (i + 1) & ") " & "The message with the text '" &_
aMessage.Text & "' was sent by " & aMessage.Sender & " on " & aMessage.Sent
next
Profile.MsgBox(aInfo)