Replacement For CDO Library

[ladanzahir]

I'm rewriting a VBA application that reads emails from a mailbox on
exchange server on the network and parses the info and puts them
to a database. I need something to replace these lines of code:

Set objSession = CreateObject("MAPI.Session")
objSession.Logon ProfileInfo:=server & vbLf & mailBoxName
Dim objFolder As MAPI.Folder
Set objFolder = objSession.Inbox

Please let me know if you have any solution.
Thanks