This function creates parameters for loading messages.
object.CreateLoadMessagesParams(aProviderID)
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aProviderID |
In, Required | int |
ID of the provider |
Display the number of messages loaded on the basis of the selected filter, their subjects and privacies.
Dim aProvider
Dim aFilter
Dim aMessages
Dim aMessage
Dim aInfo
Dim i
Set aProvider = Profile.LoadProvider("ADMIN")
set aFilter = Profile.CreateLoadMessagesParams(aProvider.Id)
aFilter.ProviderId = aProvider.Id
aFilter.Status = 1 'Outbox
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 & aMessage.Subject & " --- " & aMessage.Privacy
next
Profile.MsgBox(aInfo)In Profile Client v8 on User Interface Messages can be found in .