Macro to export mail data based on assigned category

[draxsr]

I've been able to create a script that will look through a selected folder and export the necessary data for any email message categorized but I'd like this macro to go through ALL emails in ALL folders. The part of the For Loop that needs fixing is "For Each olkMsg In Application.ActiveExplorer.CurrentFolder.Items" which only works on the selected folder. What I'd like it to do, functionally, is the same thing that the UnifiedInbox script found on the Slipstick site does. Specificially the "myOLApp.ActiveExplorer.Search txtSearch, olSearchScopeAllOutlookItems". Unfortunately, simply changing one ActiveExplorer statement to the other throws up a syntax error (even when defining/declaring txtSearch).Any help would be appreciated.

 

[Diane Poremsky]

The scope is only for search, not you need to 'walk' the folders.

Try this - as written it shows you the folder name and message count, you'll use your code block in its place.

Sub walkfolders() 
 
Dim olApp As Outlook.Application 
 
Dim objNS As Outlook.NameSpace 
 
Dim MyFolder As Outlook.MAPIFolder
   On Error Resume Next
 
   Set olApp = Outlook.Application
   Set objNS = olApp.GetNamespace("MAPI")
   Set MyFolder = objNS.PickFolder
   Call ProcessFolder(MyFolder)
   Set objNS = Nothing 
 
Set MyFolder = Nothing 
 
Set olApp = Nothing 
 
Set objNS = Nothing 
 
End Sub 
 
Sub ProcessFolder(StartFolder As MAPIFolder) 
 
Dim objFolder As Outlook.MAPIFolder 
 
Dim objItem As Object 
 
Dim mai As MailItem
   On Error Resume Next
   i = 0
   MsgBox StartFolder.Path, , "testing"
 
   ' process all the items in this folder
   For Each objItem In StartFolder.Items
       i = i + 1
   Next
     
   ' process all the subfolders of this folder
   For Each objFolder In StartFolder.Folders
       Call ProcessFolder(objFolder)
   Next
MsgBox "counted " & i & " messages in " & StartFolder 
 
Set mai = Nothing 
 
Set objFolder = Nothing 
 
Set objItem = Nothing 
 
End Sub

 

[draxsr]

I didn't get far simply exchanging my code for that single line in yours. It's probably trying to create a spreadsheet for each folder it traverses or some such.

In a perfect world, what I'd like is 1 macro that would go through all folders (including those in PST's), look for mail items with the criteria I specify and spit out a spreadsheet with certain information.

The code I've managed to cobble together will look at a single folder and do the job. I know how to add a criteria in my IF statement (a category for example). But getting the thing to go through all folders has got me stumped.

Any further help would be greately appreciated.

Thanks in advance.

View attachment Response.txt

 

[Diane Poremsky]

I have not had a chance to test it, but the "do whatever" code would go here - i think
For Each objItem In StartFolder.Items
If ojbitem.categories = "my category" then
'do whatever
Next

When the folder is done, the next folder is called.

The spreadsheet is set up before the for each statement, you'd just move ot the next line.