Hi all,

I am new to .net and I have upgraded a VB6 project to .net using the upgrade wizard.

I have resolved most of the errors however I have an error with a MAPI Folder.

My code is

Private m_objCurrentFolder As Outlook.MAPIFolder

 For Each objItem In m_objCurrentFolder.Items
            Select Case objItem.Class
                Case Outlook.OlObjectClass.olMail
                    If Subject <> "" Then

                        If objItem.Subject = Subject Then
                            ReDim Preserve arrItems(4, i)
                            arrItems(0, i).Add(objItem.EntryID)
                            arrItems(1, i).Add(objItem.SentOn)
                            arrItems(2, i).Add(objItem.ReceivedTime)
                            arrItems(3, i).Add(objItem.Subject)
                            If objItem.Body <> "" Then
                                arrItems(4, i).Add(objItem.Body)
                            Else
                                arrItems(4, i).Add(objItem.HTMLBody)
                            End If
                            i = i + 1
                        End If
                    Else
                        ReDim Preserve arrItems(4, i)
                        arrItems(0, i).Add(objItem.EntryID)
                        arrItems(1, i).Add(objItem.SentOn)
                        arrItems(2, i).Add(objItem.ReceivedTime)
                        arrItems(3, i).Add(objItem.Subject)

                        If objItem.Body <> "" Then
                            arrItems(4, i).Add(objItem.Body)
                        Else
                            arrItems(4, i).Add(objItem.HTMLBody)
                        End If
                        i = i + 1
                    End If
            End Select
        Next objItem

The error is with the first line
For Each objItem In m_objCurrentFolder.Items

And the error is
C:\Documents and Settings\Administrator\Desktop\byrons\MyDocs\Custo mers\C\CBT\CBTAutoMail\CBTAutoMail.NET\bsolOutlook 2000.vb(539): Expression is of type 'Outlook.Items', which is not a collection type.

Can anyone please help.

Thanks in advance

Byron

Hi Biron,

I get the same error with Outlook 2002.
Have you solved it yet?

Manana

I didn't solve it as such, I tackled it from a different perspective.
As I knew that the only items I was interested in had a specific subject, I changed the code as below.

Hope this helps


Dim objItem As Object
        Dim arrItems(4, 0) As Object
        Dim i As Integer
        Dim x As Integer
        Dim replyadd As String

        On Error GoTo PROC_ERR
        For x = 1 To m_objCurrentFolder.Items.Count
            objItem = m_objCurrentFolder.Items.Item(x)
            If Subject <> "" Then
                If objItem.Subject = Subject Then
                    ReDim Preserve arrItems(4, i)
                    arrItems(0, i) = (objItem.EntryID)
                    arrItems(1, i) = (objItem.SentOn)
                    arrItems(2, i) = (objItem.ReceivedTime)
                    arrItems(3, i) = (objItem.Subject)
                    If objItem.Body <> "" Then
                        arrItems(4, i) = (objItem.Body)
                    Else
                        arrItems(4, i) = (objItem.HTMLBody)
                    End If
                    i = i + 1
                End If
            Else
                ReDim Preserve arrItems(4, i)
                arrItems(0, i) = (objItem.EntryID)
                arrItems(1, i) = (objItem.SentOn)
                arrItems(2, i) = (objItem.ReceivedTime)
                arrItems(3, i) = (objItem.Subject)
                If objItem.Body <> "" Then
                    arrItems(4, i).Add(objItem.Body)
                Else
                    arrItems(4, i).Add(objItem.HTMLBody)
                End If
                i = i + 1
            End If
        Next

Hi Biron,

Thanks. I solved it by reading the Folder.Items into an object (which now does support for each etc.)

Dim objApp As Outlook.Application
        Dim objNameSpace As Outlook.NameSpace
        Dim objMAPIFolder As Outlook.MAPIFolder
        Dim objMailItem As Outlook.MailItem
        Dim i As Integer

        objApp = New Outlook.Application
        objNameSpace = objApp.GetNamespace(Type:="MAPI")
        objMAPIFolder = objNameSpace.GetDefaultFolder(Outlook.OlDefaultFol ders.olFolderInbox)

        Dim objItems As Object

        objItems = objMAPIFolder.Items
        'This is a workaround because "objMAPIFolder.Items" does not support iteration (bug?)

        For Each objMailItem In objItems
            Debug.WriteLine(objMailItem.Subject)
        Next