outlook 读邮件时的问题，请诸位多加指教

用outlook接收outlook express发过来的邮件，并在接收后在OnRead中通过程序操作改变它的内容显示，可是内容改变不了（通过outlook自己发送的邮件接收后可以改变内容显示），不知是不是有什么属性没设置对？
OnRead(LPEXCHEXTCALLBACK lpeecb)
{
lpeecb->GetObject(&pMDB, (LPMAPIPROP *)&pMessage);
pMessage->SetReadFlag(SUPPRESS_RECEIPT );
pMessage->SaveChanges(KEEP_OPEN_READWRITE);hr = pMessage->OpenProperty(PR_BODY, &IID_IStream, 
STGM_READWRITE | STGM_DIRECT,  MAPI_MODIFY, (LPUNKNOWN *) &pStreamBody);
...
large_int.LowPart = 0;
large_int.HighPart = 0;
pStreamBody->Seek(large_int, STREAM_SEEK_SET, &ularge_int);
pStreamBody->Write( (LPVOID)p_NewText,strlen(p_NewText), &ulActualWrite);}