ISLoadMessagesParams.Status

Example

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.Status = 1 'Outbox 
set aMessages = Profile.LoadMessages(aFilter)

aInfo = "The number of the messages with the status " & aFilter.Status & " is " & aMessages.Count
for i = 0 to aMessages.Count - 1  
  set aMessage = aMessages.Item(i)
  aInfo = aInfo & vbNewLine & (i + 1) & ") " & aMessage.Subject & " --- " &_
    aMessage.Privacy
next 

Profile.MsgBox(aInfo)