From Lucinda Bulloch via SL Scripting Library:

This is a simple basic script to collect notes and give them on touch to a person on the list

list names = ;
default
{
    state_entry()
    {
     llAllowInventoryDrop(TRUE);
    }

    changed(integer change) {
    if ((change & (CHANGED_ALLOWED_DROP | CHANGED_INVENTORY)) )
     {
      llInstantMessage(llGetOwner(), "note card added to "+llGetObjectName()+" inventory"); // tellowner a note has been droped in the prim
     }
  }
touch_start(integer num)
  {
   if(llListFindList(names, ) != -1)
    {
     integer x;
     for(x=0; x