Help for this page
# $note->(Color) <--------wrong $note->{Color} = $Color;
use Win32::OLE; use strict; ... # Close and Save note. $note->Close(olSave);