Process email with text and embedded picture

The following codes hangs the server when it encountered emails that have text and embedded pictures (not attachment). After restart the server, it ok. Please advise what is wrong ?

The scenario is very predictable. I trying sending these type of emails and it hangs the server.

code here


Dim itemBody As NotesRichTextItem

Dim doc As NotesDocument

session.convertMime = true

doc.getfirstitem(“Body”) — Ok here

if doc.hasItem(“Body”) then

  set itembody = doc.getfirstitem("Body") --- hang here

Subject: Process email with text and embedded picture

really, anybody have the answers ??? Thanks