Select Code to Download

# $note->(Color) <--------wrong
$note->{Color} = $Color;

use Win32::OLE;
use strict;
...
# Close and Save note.
$note->Close(olSave);