outlook vba - setting reference to subfolder, sometimes no folder items in collection

[travb81]

I'm trying to move an outlook item (email) to a particular subfolder.
This code usually works the first time.
But on subsequent times it doesn't... then other times it will, random results.

The problem always seems to be getting the subfolders of the Inbox folder... sometimes I get a count of 0 folders in that collection, which is where this will throw up the error "The attempted operation failed. An object could not be found."
The commented line below works the same as the three above.... sometimes it works.. sometimes not. Any ideas on what is going wrong?!



Code:

    Dim NS As Outlook.NameSpace
    Set NS = Application.GetNamespace("MAPI")
    
    Dim oOfficeFolder As Outlook.MAPIFolder
    Dim oOfficeInboxFolder As Outlook.MAPIFolder
    Dim oOfficeInboxSupplierFolder As Outlook.MAPIFolder
    
    Set oOfficeFolder = NS.Folders.Item("Office")
    Set oOfficeInboxFolder = oOfficeFolder.Folders.Item("Inbox")
    Set oOfficeInboxSupplierFolder = oOfficeInboxFolder.Folders.Item("Suppliers")
    'Set oOfficeInboxSupplierFolder = NS.Folders("Office").Folders("Inbox").Folders("Suppliers")
    oMailItem.Move oOfficeInboxSupplierFolder

[gmayor]

Assuming the account name is Office then

Sub MoveSelectedMsg()
Dim olStore As Store
Dim olFolder As Folder
Dim olItem As MailItem
    On Error Resume Next
    Select Case Outlook.Application.ActiveWindow.Class
        Case olInspector
            Set olItem = ActiveInspector.currentItem
        Case olExplorer
            Set olItem = Application.ActiveExplorer.Selection.Item(1)
    End Select
    For Each olStore In Session.Stores
        If olStore = "Office" Then
            Set olFolder = olStore.GetDefaultFolder(olFolderInbox).folders("Suppliers")
            olItem.Move olFolder
            Exit For
        End If
    Next olStore
    Set olStore = Nothing
    Set olFolder = Nothing
    Set olItem = Nothing
End Sub

[travb81]

Neat reply, thanks!

Except i'm still getting the same behaviour.

    Set olFolder = olStore.GetDefaultFolder(olFolderInbox).folders("Suppliers")

I can tell when it's going to fail, as

olStore.GetDefaultFolder(olFolderInbox).folders.count

will return 0.

Originally Posted by gmayor

Assuming the account name is Office then

Sub MoveSelectedMsg()
Dim olStore As Store
Dim olFolder As Folder
Dim olItem As MailItem
    On Error Resume Next
    Select Case Outlook.Application.ActiveWindow.Class
        Case olInspector
            Set olItem = ActiveInspector.currentItem
        Case olExplorer
            Set olItem = Application.ActiveExplorer.Selection.Item(1)
    End Select
    For Each olStore In Session.Stores
        If olStore = "Office" Then
            Set olFolder = olStore.GetDefaultFolder(olFolderInbox).folders("Suppliers")
            olItem.Move olFolder
            Exit For
        End If
    Next olStore
    Set olStore = Nothing
    Set olFolder = Nothing
    Set olItem = Nothing
End Sub

[travb81]

Any suggestion on what might be going wrong?

[wodonnell]

Was a resolution to this ever found? We have hit the exact same issue.

For one specific user our code runs fine the first time but on subsequent runs folders.count returns 0 even though there are subfolders.