Reading Emails

[AMP]

On running the followig code, with a time that fires every 30 seconds

Dim oApp As Outlook.Application = New Outlook.Application
' String used for comparison with mail item.
' Get Mapi NameSpace.
Dim oNS As Outlook.NameSpace = oApp.GetNamespace("MAPI")
oNS.Logon("USER", "password", False, True)
' Get Messages collection of Inbox.
Dim oInbox As Outlook.MAPIFolder =
oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFo lderInbox)
Dim objFolder As Outlook.MAPIFolder =
oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFo lderInbox)
objFolder = objFolder.Folders.Item("Complete")
Dim osItems = CreateObject("Redemption.SafeMailItem")
Dim oItems As Outlook.Items = oInbox.Items.Restrict("[Unread]
= true")
' Get unread e-mail messages.
oItems = oItems.Restrict("[Unread] = true")
' Loop each unread message.
Dim icount As Integer
Dim i As Integer
If IsDBNull(oItems.Count) Then
icount = 0
Else
icount = oItems.Count
End If
'Try
If icount 0 Then
'reads with email and stores the results
end if
This runs ok for a while the errors
on
If IsDBNull(oItems.Count) Then

with "Cannot create ActiveX component."

Any ideas whats wrong