// Cast it into an appointment object
		CComQIPtr <Outlook::_ContactItem>	spConItem( conItem );
		CComQIPtr <Outlook::UserProperties> spUserProp;
		CComQIPtr <Outlook::UserProperty>	spProp;

		bstrName = strName.AllocSysString();
		bstrCong = strCong.AllocSysString();
		bstrNotes = strNotes.AllocSysString();
		bstrTalks = strTalks.AllocSysString();

		spConItem->put_FullName(bstrName);
		// we could split above into first last too
		spConItem->put_JobTitle(bstrNotes);
		spConItem->put_CompanyName(bstrCong);
		spConItem->put_Body(bstrTalks);
		for (iMemo = 0; iMemo < NUM_MEMO_FIELDS; iMemo++)
		{
			switch(iMemoType[iMemo])
			{
			case MEMO_HOME_PHONE:
				{
					CComBSTR bstrPhone;

					bstrPhone = aryStrMemo[iMemo].AllocSysString();
					spConItem->put_HomeTelephoneNumber(bstrPhone);
					break;
				}