COM

if(pMsg) {<br />
// Get the from and subject<br />
LPSPropValue rgMsgprops = NULL;<br />
ULONG cMsgValues = 0;<br />
SizedSPropTagArray(2, rgMsgTags) = {2,{PR_SENDER_NAME,<br />
  PR_SUBJECT}};<br />
<br />
hr = pMsg->GetProps((LPSPropTagArray)&rgMsgTags,<br />
  MAPI_UNICODE, &cMsgValues, &rgMsgprops);<br />
<br />
// Get the body<br />
IStream *pStream = NULL;<br />
TCHAR tchBody[255] = TEXT("\0");<br />
<br />
hr = pMsg->OpenProperty(PR_BODY, NULL, 0, 0,<br />
  (IUnknown **)&pStream);<br />
if(FAILED(hr)) {<br />
  pMsg->Release();<br />
  pIInboxTable->Release();<br />
  pPOPInboxFolder->Release();<br />
  return FALSE;<br />
}<br />
<br />
// Read from the stream into the tchBody<br />
hr = pStream->Read(tchBody, 254, NULL);<br />
pStream->Release();<br />
<br />
// Do something with it:<br />
TCHAR tchMsg[1024] = TEXT("\0");<br />
wsprintf(tchMsg, TEXT("From: %s\r\nSubject: %s\r\nMsg: %s"), rgMsgprops[0].Value.lpszW,rgMsgprops[1].Value.lpszW, tchBody); <br />
// MessageBox(NULL, tchMsg, TEXT("New Message!"), MB_OK|MB_ICONINFORMATION);<br />
<br />
// Msg cleanup<br />
MAPIFreeBuffer(rgMsgprops);<br />
pMsg->Release();

<br />
_ApplicationPtr word(L"Word.Application");<br />
word->Visible = true;<br />
word->Activate();<br />

<br />
RangePtr myRange = word1->Selection->Font->Underline = WdUnderline.wdUnderlineSingle;<br />