[.Quattro.]

Попробуйте задать кодировку:

flds := CDOMessage.Fields;
fld := ActivXFields.Item('urn:schemas:mailheader:content-type');
fld := 'text/html; charset=koi8-r';
flds.Update;
flds.Resync;