Using visual basic to access subfolder in Inbox?

vba outlook subdirectory
kinkajou picture kinkajou · Nov 30, 2011 · Viewed 64.1k times · Source 
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set myOlItems = objNS.GetDefaultFolder(olFolderInbox).Items

I have used the code above to access the main outlook Inbox but how to access the folders in inbox and it's mail using vba!

Answer

brettdj picture brettdj · Nov 30, 2011

Thats very close :)

To get all the mail items in a folder called "temp" under the Inbox try this

Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim msg As Outlook.MailItem

Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
Set olFolder = olFolder.Folders("Temp")

For Each msg In olFolder.Items
    Debug.Print msg.Subject
Next

Related questions

Save attachments to a folder and rename them

I'm trying to get a VBA macro in Outlook that will save an email's attachment to a specific folder and add the date received to the file name. My googling has gotten me this far: Public Sub saveAttachtoDisk (itm As …

Read More
How to add default signature in Outlook

I am writing a VBA script in Access that creates and auto-populates a few dozen emails. It's been smooth coding so far, but I'm new to Outlook. After creating the mailitem object, how do I add the default signature to …

Read More
How to copy Outlook mail message into excel using VBA or Macros

I'm a newbie in VBA and Macros. If someone helps me with VBA code and macros, it will be helpful. Daily I'll receive around 50-60 mails with one standard subject: "Task Completed". I have created a rule to all those …

Read More