The following code shows how to create an ObjectRenderer object for a message. It also adds the following:
' Assume Rendering application is stored in
' Active Server Pages Application object
Set objRenderApp = Application ("RenderingApp")
' Create a renderer object using class object renderer
Set objRenderer = objRenderApp.CreateRenderer (AMHTML_Class_ObjectRenderer)
If (Not objRenderer Is Nothing) Then
' Add a property-only Format object (for PR_IMPORTANCE)
' (The named format will contain language specific strings.)
Set objFormat = objRenderer.Formats.Add(CdoPR_IMPORTANCE, Null)
objFormat.Patterns.Add "*", "%langImportance%"
' Add a named Format object to the renderer object
Set objFormat = objRenderer.Formats.Add(0, "langImportance")
' Add patterns to Format object (possible property
' values and corresponding RenderUsing strings)
objFormat.Patterns.Add 0, "Low"
objFormat.Patterns.Add 1, "Normal"
objFormat.Patterns.Add 2, "High"
' Add LinkPattern string (creates "message_Link" named format)
objRenderer.LinkPattern = "%virtroot%/forms/%classpath%frmroot.asp?obj=%obj%&command=open"
' Store new renderer object in Session for later use
Set Session("ObjectRenderer") = objRenderer
End If