Receive the email from Lotus Note and detach the attachment?

[mingichu]

Hi! All experts,

I'm looking for a way to use VB6 detach the attachment file(S) from the Inbox folder of Lotus Notes email to our local/share drive. We already have codes to create Lotus Notes session, set the database to send mail from, open the mail file and send an email (pls see below). Now need help to receive the email and detach the file. Thanks in advance!

============
Dim NotesSession As Object
Dim NotesDb As Object
Dim NotesDoc As Object
Dim RichText As Object
Dim Attachment1 As Object
Dim strServerName As String
Dim strUserDb As String
Dim vstrCopy As String

strServerName = "XXXXXX/XXX/XX/XXX"
strUserDb = "ABC.nsf"
Set NotesSession = CreateObject("Notes.NotesSession&quot
Set NotesDb = NotesSession.GETDATABASE(strServerName, strUserDb)
NotesDb.OPENMAIL
.................