Function GetColorString(Byval colorCode As Long) As String
 Select Case colorCode
 Case COLOR_BLACK :GetColorString = "Black"
 Case COLOR_BLUE :GetColorString = "Blue"
 Case COLOR_CYAN :GetColorString = "Cyan"
 Case COLOR_DARK_BLUE :GetColorString = "Dark blue"
 Case COLOR_DARK_CYAN :GetColorString = "Dark cyan"
 Case COLOR_DARK_GREEN :GetColorString = "Green"
 Case COLOR_DARK_MAGENTA :GetColorString = "Magenta"
 Case COLOR_DARK_RED :GetColorString = "Red"
 Case COLOR_DARK_YELLOW :GetColorString = "Yellow"
 Case COLOR_GRAY :GetColorString = "Gray"
 Case COLOR_GREEN :GetColorString = "Green"
 Case COLOR_LIGHT_GRAY :GetColorString = "Light gray"
 Case COLOR_MAGENTA :GetColorString = "Magenta"
 Case COLOR_RED :GetColorString = "Red"
 Case COLOR_WHITE :GetColorString = "White"
 Case COLOR_YELLOW :GetColorString = "Yellow"
 Case Else :GetColorString = Cstr(colorCode)
 End Select
End Function

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDatabase
 Dim dc As NotesDocumentCollection
 Set dc = db.UnprocessedDocuments
 Dim doc As NotesDocument
 Set doc = dc.GetFirstDocument
 Dim rti As NotesRichTextItem
 Set rti = doc.GetFirstItem("Body")
 Dim rtnav As NotesRichTextNavigator
 Set rtnav = rti.CreateNavigator
 If Not rtnav.FindFirstElement(RTELEM_TYPE_SECTION) Then
   Messagebox "Body item does not contain a section,",, _
   "Error"
   Exit Sub
 End If
 Dim rts As NotesRichTextSection
 Do
   Set rts = rtnav.GetElement
   Messagebox "Bar color = " & _
   GetColorString(rts.Barcolor.NotesColor) _
   ,, rts.Title
 Loop While rtnav.FindNextElement
End Sub

関連項目

BarColor プロパティ

用語集