Folder on root, not under Inbox generates error: The attempted operation failed. An Object Could not be found [duplicate]

Question

I have created a folder on root, not under Inbox. What is the syntax to move to root folder?

I'm getting error:

The attempted operation failed

An Object Could not be found

Debug points to the below line myRestrictItems(i).Move myFolder.folders("Business")

Option Explicit

Public Sub Example()

    Dim myNamespace As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
    Dim myRestrictItems As Outlook.Items
    Dim myItems As Outlook.Items
    Dim myItem As Object
    Dim i As Long
    Dim Filter As String
    Dim Msg As String


    Set myNamespace = Application.GetNamespace("MAPI")
    Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
    Set myItems = myFolder.Items

    Filter = "@SQL=" & Chr(34) & "urn:schemas:httpmail:datereceived" & _
                   Chr(34) & " >= '01/01/2018' And " & _
                   Chr(34) & "urn:schemas:httpmail:datereceived" & _
                   Chr(34) & " < '23/03/2018' And " & _
                   Chr(34) & "urn:schemas:httpmail:fromname" & _
                   Chr(34) & "Like '%Jayakumar Krishnamoorthy%'"


    Set myRestrictItems = myItems.Restrict(Filter)

    For i = myRestrictItems.Count To 1 Step -1
        myRestrictItems(i).Move myFolder.folders("Business")

    'Msg = myRestrictItems.Count & " Items in " & myFolder.Name & " Folder"

    'MsgBox (Msg)

    Next

End Sub

I have created folder on root, not under Inbox. Now Created and Tested with 0m3r suggessions, it worked great. What is the syntax to move to root folder "Business" — Jayakumar krishnamoorthy
– Jayakumar krishnamoorthy, Commented Mar 23, 2018 at 9:28
Sorry, I could not share the screenshot of the mailbox, as it is my office mailbox. — Jayakumar krishnamoorthy
– Jayakumar krishnamoorthy, Commented Mar 23, 2018 at 10:40

0m3r · Accepted Answer · 2018-03-26 01:28:40Z

0

The correct syntax should be

myRestrictItems(i).Move myNamespace.Folders("Business")

Also Move you msgbox outside the loop, Example

Set myRestrictItems = myItems.Restrict(Filter)

Msg = myRestrictItems.Count & " Items in " & myFolder.Name & " Folder, Move it?"

If MsgBox(Msg, vbYesNo) = vbYes Then
    For i = myRestrictItems.Count To 1 Step -1
        myRestrictItems(i).Move myNamespace.Folders("Business")
    Next
End If

edited Mar 26, 2018 at 1:28

answered Mar 23, 2018 at 7:39

0m3r

12.5k15 gold badges40 silver badges77 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

Jayakumar krishnamoorthy Over a year ago

Thanks 0m3r, Modified as you suggested, the script works like a Champ, I have created a folder under my Inbox and it works fine and successfully moved. What is the syntax if I have to move it to root folder "Business"

0m3r Over a year ago

@Jayakumarkrishnamoorthy answer updated with correct syntax

AJD · Accepted Answer · 2018-03-23 06:23:20Z

0

Run a quick loop through the folders to debug.print their names and any other properties you might find useful. The displayed name and internal name may not be the same.

answered Mar 23, 2018 at 6:23

AJD

2,4682 gold badges15 silver badges25 bronze badges

Collectives™ on Stack Overflow

Folder on root, not under Inbox generates error: The attempted operation failed. An Object Could not be found [duplicate]

2 Answers 2

2 Comments

Comments

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Linked

Related