Outlook Folder, PutFields with Redemption

J

jprandi

Hi Dmitry,

I've been trying to add some custom fields with Redemtion with no
success. I've seen with OutlookSpy that it works pretty fine, but
somehow my code isn't working. I'm working in OL2003, and this is my
code:

***********
CComPtr<Outlook::MAPIFolder> folder;
[...]
Redemption::ISafeMAPIFolderPtr sItem;
HRESULT hRes =
sItem.CreateInstance(__uuidof(Redemption::ISafeMAPIFolder));
if (SUCCEEDED(hRes))
{
sItem->Item = folder;
sItem->SetMAPIOBJECT(folder.p);
sItem->PutFields(0x662, VARIANT_TRUE);
}

Any clues?
Thanks
 
Top