Read mail's Subject

[Maurizio]

Hi all,
is it possible read, with vba, all "Subject" from my received mails (Outlook Express 6.0) on 05/05/2003 and report them on a sheets?

Tia.

 

[Legacy 15162]

I tried to add this into the macro
Set MySubFolder = NmSpace.Folders("Public Folders").Folders("All Public Folders").Folders("Mycompany").Folders("State").Folders("nac dcs swap").Folders("Clients Emp Changes")
But I am getting an object could not be found error.
I checked all spelling and ensure case sensitivity.

 

[Andrew Poulsom]

It's just a matter of drilling down. Try this (which worked for me):

Sub Test()
    Dim OutApp As Object    'Outlook.Application
    Dim NmSpace As Object   'Outlook.NameSpace
    Dim Folder As Object    'Outlook.MAPIFolder
    Dim MItem As Object     'Outlook.MailItem
    Set OutApp = CreateObject("Outlook.Application")
    Set NmSpace = OutApp.GetNamespace("MAPI")
    For Each Folder In NmSpace.Folders("Public Folders").Folders("All Public Folders").Folders
        MsgBox Folder.Name
    Next Folder
    Set Folder = Nothing
    Set NmSpace = Nothing
    Set OutApp = Nothing
End Sub

If you are happy that some folders exist under All Public Folders, keep expanding the tree until you get an error.

 

[Legacy 15162]

drilling down worked!!!!! it appears i misspelled a word by transposing two letters!

Now, I have it working, but it is only returning the contents of one folder, not all three...How can I resolve this?

 

[Andrew Poulsom]

I think you'll have to do one at a time. After the first pass Set the MySubFolder variable to the next folder you want and repeat the For Each MItem loop.