Enumerating Outlook Items Crashes When An Undeliverable Email Item Is Found?

Here's my code:

Code: Public Sub ProcessInbox()
Dim oOutlook As New Microsoft.Office.Interop.Outlook.Application Dim oNs As Microsoft.Office.Interop.Outlook.NameSpace Dim oFldr As Microsoft.Office.Interop.Outlook.MAPIFolder Dim oAttachments As Microsoft.Office.Interop.Outlook.Attachments Dim oAttachment As Microsoft.Office.Interop.Outlook.Attachment Dim

[code]....

If I change the following line as shown, it works OK:

Code: Dim oMessage As Object

Is this the best way to get it to work or what should I specifically define the variable oMessage as?

|+--JDMils|+--VB6 & XL VBA+--VB Dot Net 2K8|