This function returns messages by the selected parameter.
object.LoadMessages(aParams)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aParams |
In, Required | The object that defines conditions for
filtering |
Display the number of messages by the selected parameter, their subjects and privacies.
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/09/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 & aMessage.Subject & " --- " & aMessage.Privacy
next
Profile.MsgBox(aInfo)
In Profile Client v8 on User Interface Messages can be found in
.