Custom Mood Stamps

HCL Domino Domino Forum
1

I have added custom mood stamps to the Notes mail template by modifying the DeliveryOptions subform. I’ve added the icons to the tmpSenderTag field and also the $Moods subform as required. The template was then deployed to all users. When composing an email, the users all see the mood stamps within the email (heading) but not in their inbox (view). I looked at the queryclose event of the subform and located the script which controls which view icon appears. I was told via another source that I needed to add these custom icons as image resources then reference them in the script by their image resource name (see below). However, the view does not show an icon when selecting one of the custom icons. Any ideas? Thanks in advance.

[Queryclose event of DeliveryOptions subform]

If Not Source.DialogBoxCanceled Then

	If Source.Document.UpdateProfileNote(0) = "1"  Then

		Call SecurityPreferences.Close()

	End If

	With Source.Document

		Select Case .SenderTag(0)

		Case "P"

			Call .ReplaceItemValue("_ViewIcon",	170)

		Case "C"

			Call .ReplaceItemValue("_ViewIcon",	169)

		Case "R"

			Call .ReplaceItemValue("_ViewIcon",	163)				

		Case "T"

			Call .ReplaceItemValue("_ViewIcon",	85)

		Case "F"

			Call .ReplaceItemValue("_ViewIcon",	74)

		Case"G"

			Call .ReplaceItemValue("_ViewIcon",	159)

		Case "J"

			Call .ReplaceItemValue("_ViewIcon",	166)

		Case "Y"

			Call .ReplaceItemValue("_ViewIcon",	23)

		Case "Q"

			Call .ReplaceItemValue("_ViewIcon",	162)

		Case "M"

			Call .ReplaceItemValue("_ViewIcon",	10)

		Case "N"

			Call .ReplaceItemValue("_ViewIcon",	0)

		Case "V"

			Call .ReplaceItemValue("_ViewIcon", "ForReview")

		Case "A"

			Call .ReplaceItemValue("_ViewIcon", "ImmedAction")

		Case "I"

			Call .ReplaceItemValue("_ViewIcon", "Invitation")

		Case "E"

			Call .ReplaceItemValue("_ViewIcon", "BlahBlah")

		Case "U"

			Call .ReplaceItemValue("_ViewIcon", "Urgent")

		Case "S"

			Call .ReplaceItemValue("_ViewIcon", "5Days")

		Case "W"

			Call .ReplaceItemValue("_ViewIcon", "10Days")

		Case "B"

			Call .ReplaceItemValue("_ViewIcon", "Survey")

		Case Else

			Call .RemoveItem("_ViewIcon")

			Call .RemoveItem("SenderTag")

		End Select

	End With

End If