AFNotificationContent Class

<SerializableAttribute>
Public NotInheritable Class AFNotificationContent
	Inherits AFObject
	Implements IComparable(Of AFNotificationContent), IAFTrace

Dim instance As AFNotificationContent

[SerializableAttribute]
public ref class AFNotificationContent sealed : public AFObject, 
	IComparable<AFNotificationContent^>, IAFTrace

[<SealedAttribute>]
[<SerializableAttribute>]
type AFNotificationContent =  
    class
        inherit AFObject
        interface IComparable<AFNotificationContent>
        interface IAFTrace
    end

' This example demonstrates how to create a notification template that
' defines some notification contacts and notification contents. It then
' creates a notification from the template and displays its information.

' Get the Database
Dim myPISystems As PISystems = New PISystems
Dim myDB As AFDatabase = myPISystems.DefaultPISystem.Databases.DefaultDatabase

' Create a Notification Template
Dim myNotificationTemplate As AFNotificationTemplate = New AFNotificationTemplate("MyNotificationTemplate")
myDB.ElementTemplates.Add(myNotificationTemplate)
Dim myTmplContact1 As AFNotificationContact = myNotificationTemplate.NotificationContacts.Add("MyContact#1")
Dim myTmplContact2 As AFNotificationContact = myNotificationTemplate.NotificationContacts.Add("MyContact#2")
Dim myTmplContent1 As AFNotificationContent = myNotificationTemplate.Contents.Add("MyContent#1")
myTmplContent1.NotificationContacts.Add(myTmplContact1)

' Create a Notification from the Notification Template
' and Add Additional Contacts and Content
Dim myNotification As AFNotification = New AFNotification(myDB, "MyNotification", myNotificationTemplate, Nothing)
Dim myContact1 As AFNotificationContact = myNotification.NotificationContacts("MyContact#1")
Dim myContact2 As AFNotificationContact = myNotification.NotificationContacts("MyContact#2")
Dim myContact3 As AFNotificationContact = myNotification.NotificationContacts.Add("MyContact#3")
Dim myContent1 As AFNotificationContent = myNotification.Contents("MyContent#1")
Dim myContent2 As AFNotificationContent = myNotification.Contents.Add("MyContent#2")
myContent1.NotificationContacts.Add(myContact3)
myContent2.NotificationContacts.Add(myContact2)
myContent2.NotificationContacts.Add(myContact3)

' Display Information for the Notification Contents
For Each item As AFNotificationContent In myNotification.Contents
    Console.WriteLine("Name of Notification Content = {0}", item.Name)
    If item.Attribute <> Nothing Then
        Console.WriteLine("    Content's Attribute = {0}", item.Attribute.Name)
    End If
Next

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.