ISMessage.IsCreatedInternally

Description

This function checks whether the message was created and sent by Profile.

Syntax

object.IsCreatedInternally()

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

Return Value

bool

Returns True if the message was created by Profile.

Example

Display True if the message is created by Profile.

Dim aProvider
Dim aParams
Dim aMessages
Dim aMessage
Dim aInfo

Set aProvider = Profile.LoadProvider("ADMIN")
set aParams = Profile.CreateLoadMessagesParams(aProvider.Id)
aParams.ProviderId = aProvider.Id
aParams.SentAfter = #12/09/2010#
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 & "Is the message created internally: " & aMessage.IsCreatedInternally
next 

Profile.MsgBox(aInfo)

Note:

In Profile Client v8 on User Interface Sender can be found in Organisation > Work Centre > Communication > Email > From.

Version information

Added in v7.8.0