Returns or sets a Long indicating the color of the note. Can be one of the following OlNoteColor constants: olBlue, olGreen, olPink, olWhite, or olYellow. Read/write.
objNoteItem.Color
objNoteItem Required. An expression that returns one of the objects in the Applies To list.
Example
This example creates a new NoteItem and sets the color to blue.
Sub CreatePersonalNote()
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.NoteItem
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olNoteItem)
myItem.Color = olBlue
myItem.Display
End Sub
If you use VBScript, you do not create the Application object, and you cannot use named constants. This example shows how to use the Color property using VBScript.
Set myItem = Application.CreateItem(5)
myItem.Color = 0