ISProfileForm.Context

Description

The context of the CDO form.

Syntax

object.Context

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

Restriction: This property is readonly.

Return Value

ISContext

Example

Display some information about the CDO form, including its case context.

Dim aForm
Dim aContext
Dim aCase, aCaseTitle
Dim aFormInfo

Set aForm = Profile.Form

set aContext = aForm.Context

set aCase = aContext.CaseObj
if not aCase is Nothing then
  aCaseTitle = aCase.CaseTitle
else
  aCaseTitle = " - "   
end if

aFormInfo =_
  "Short Name: " & aForm.ShortName & vbNewLine &_
  "TypeName: " & aForm.TypeName & vbNewLine &_   
  "Context Case: " & aCaseTitle & vbNewLine 
    
Profile.MsgBox(aFormInfo)

Note: This macro should be executed in any event handler of the form control.

Version information

Added in v7.8.0