szcontent = "主题：" & ocurmail.subject & vbcrlf
' 那么其次判断是否是一个联系人，即oitem.messageclass是"ipm.contact"
elseif oitem.messageclass = "ipm.contact" then
' get the current mail item
dim ocurcontact as outlook.contactitem
set ocurcontact = oitem
