' 那么其次判断是否是一个便笺，即oitem.messageclass是"ipm.stickynote"
elseif oitem.messageclass = "ipm.stickynote" then
' get the current note item
dim ocurnote as outlook.noteitem
set ocurnote = oitem
' 那么其次判断是否是一个日程，即oitem.messageclass是"ipm.appointment"
elseif oitem.messageclass = "ipm.appointment" then
' get the current appointment item
