Reference a folder not under the default inbox

Question

I've tried countless ways of deleting items from a custom folder called "Spam Digests" older than 14 days. I have successfully done this when I nest this folder underneath the olDefaultFolder(Inbox) but when I have it outside of the default inbox, I cannot reference it as I receive object not found.

Here is what I have and I cannot seem to figure out why the object is not found when referencing "fldSpamDigest"

    Dim outapp As Outlook.Application
    Set outapp = CreateObject("outlook.application")
    Dim olitem As Object
    Dim fldSpamDigest As Outlook.MAPIFolder

    Set fldSpamDigest = outapp.GetNamespace("MAPI").Folders("Spam Digests")
    For Each olitem In fldSpamDigest.Items
        If DateDiff("d", olitem.CreationTime, Now) > 14 Then olitem.Delete
    Next

    Set fldSpamDigest = Nothing
    Set olitem = Nothing
    Set outapp = Nothing

Or set up a special archiving setting (delete emails older than x) for the folder. That's what I did, and it works for me. — vacip
– vacip, Commented Jan 25, 2018 at 15:54
We are trying to stay away from the auto archiving feature for some reason. If i had it my way, that would have been done from day 1 but someone got burned using archiving i guess and now we arent "permitted" to use it. — user3487671
– user3487671, Commented Jan 29, 2018 at 15:29

niton · Accepted Answer · 2018-01-25 19:07:13Z

6

GetDefaultFolder(olFolderInbox) is a shortcut.

You can reference any folder the long way.

Sub reference_walk_the_path()

    Dim outapp As Outlook.Application
    Set outapp = CreateObject("outlook.application")

    Dim olitem As Object
    Dim fldSpamDigest As Outlook.MAPIFolder

    ' from the default inbox to the parent which is your mailbox
    Set fldSpamDigest = outapp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent
    ' from the mailbox to a folder at the same level as the Inbox 
    Set fldSpamDigest = fldSpamDigest.folders("Spam Digests")

    ' or
    ' directly from the mailbox to a folder at the same level as the Inbox 
    'Set fldSpamDigest = outapp.GetNamespace("MAPI").folders("your email address").folders("Spam Digests")

    For Each olitem In fldSpamDigest.Items
        If dateDiff("d", olitem.CreationTime, Now) > 14 Then olitem.Delete                
    Next

    Set fldSpamDigest = Nothing
    Set olitem = Nothing
    Set outapp = Nothing

End Sub

answered Jan 25, 2018 at 19:07

niton

9,28923 gold badges37 silver badges58 bronze badges

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

1 Comment

user3487671 Over a year ago

Awesome. Sorry I took so long to get back with feedback. sidetracked with a different issue. That solution is exactly what I wanted. Makes perfect sense. Wish I would have thought about it like that. Thank you!

0m3r · Accepted Answer · 2018-02-12 22:08:19Z

1

Dim outapp As Outlook.Application
Set outapp = CreateObject("outlook.application")

There is no need to create a new Outlook Application instance in the Outlook VBA, simply use the Application property

To reference a folder that is not under default Inbox - example would be

Option Explicit
Public Sub Example()
    Dim olNs As Outlook.NameSpace
    Set olNs = Application.Session

    Dim Digest_Fldr As Outlook.MAPIFolder
    Set Digest_Fldr = olNs.GetDefaultFolder(olFolderInbox) _
                          .Parent.Folders("fldSpamDigest")

    Dim Items As Outlook.Items
    Set Items = Digest_Fldr.Items

    Dim i As Long
    For i = Items.Count To 1 Step -1
        DoEvents
        Debug.Print Items(i).Subject
    Next

End Sub

edited Feb 12, 2018 at 22:08

answered Jan 25, 2018 at 22:11

0m3r

12.5k15 gold badges40 silver badges77 bronze badges

Collectives™ on Stack Overflow

Reference a folder not under the default inbox

2 Answers 2

1 Comment

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related