Нет ли других библиотек для чтения емайл?
Я не хочу использовать Outlook , т.к. выскакивает
message box для разрещения доступа к аутлуку.

вот решение, кому надо:

Dim iDropDir As New CDO.DropDirectory
Dim iMsgs As CDO.IMessages, strBodyMsg, strSubject, strRetVal As String
iMsgs = iDropDir.GetMessages(strMailFolder) '("C:\Inetpub\mailroot\Drop")
' you now have the collection of messages
' in the SMTP drop directory

Dim i As Int32

For i = 1 To iMsgs.Count


strBodyMsg = iMsgs.Item(i).TextBody()
strSubject = iMsgs.Item(i).Subject()


Next