Getting multipart messages from Outlook

[ptraj]

Dear ppls,
I'm doing a small project to extract all messages from outlook by Visual Basic 6.0 and write them into a file(in MBOX format). While accessing messages i able to get headers, body, list of attachments. Herer two cases has to be considered.
1. Messages without Attachments.
2. Messages with Attachments.
For the first case "Content-Type" will be text/plain or test/html etc..., for 2nd case "Content-Type" will be multipart with a boundry value.
The problem is with the 2nd case. I need to get informations like the following. How i can get it?.

This is a multi-part message in MIME format.

--=============== 1583387543==
Content-Type: multipart/related;
boundary="===== ==========15833 87543==_R"

--=============== 1583387543==_R
Content-Type: multipart/alternative;
boundary="===== ==========15833 87543==_R_A"

--=============== 1583387543==_R_ A
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit

@@@@@@@ body information will come here

--=============== 1583387543==_R_ A
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

@@@@ body in html format

--=============== 1583387543==_R_ A--

--=============== 1583387543==_R
Content-Type: image/jpeg; name="image001. jpg"
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename="image 001.jpg"
Content-ID: <image001.jpg@0 1C6D756.ABA16C0 0>

@@@@ encoded attachment

--=============== 1583387543==_R
Content-Type: image/jpeg; name="image002. jpg"
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename="image 002.jpg"
Content-ID: <image002.jpg@0 1C6D756.ABA16C0 0>

@@@@ encoded attachment

--=============== 1583387543==_R--

--=============== 1583387543==
Content-Type: text/plain; name="ATT00003. txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename="ATT00 003.txt"

_______________ _______________ _______________ __
Vo-team mailing list
Vo-team@list-server
http://list-server/mailman/listinfo/vo-team

--=============== 1583387543==--

Plz, clear me this with appropriate code in visual basic


with thanks,
ptraj.