Hi There,

Is there a VBA code that I can use to find a user created folder?
A bit like serach in Windows exporer.

Kind regards
TW

On Mon, 13 Feb 2012 12:40:54 -0800 (PST), The Writings wrote in
microsoft.public.outlook.program_vba:

>Is there a VBA code that I can use to find a user created folder?
> A bit like serach in Windows exporer.

If you know the exact path, you can address it with
Application.GetNamespace("MAPI").Folders("Level 1").Folders("Level 2").Folders("Level 3")
e.g.
Application.GetNamespace("MAPI").Folders("Mailbox - John Doe").Folders("Inbox").Folders("foo")

If you only know the folder name but not the path, you have to
traverse the folder tree to find it. Here is some code that will
traverse recursively a folder tree and list folder names.

Sub ListFolders(fldFolder As Variant)
Dim varFolder As Variant
Static lngLevel As Long

lngLevel = lngLevel + 1
For Each varFolder In fldFolder.Folders
Debug.Print String(lngLevel, "+") & varFolder.Name
If varFolder.Folders.Count > 0 Then
Call ListFolders(varFolder)
End If
Next
lngLevel = lngLevel - 1
End Sub

Sub testListFolders()
Call ListFolders(ActiveExplorer.CurrentFolder)
End Sub

Comparing the folder names with a search string and building a
complete path is left as an exercise for the reader. Good luck.

--
Michael Bednarek, Brisbane "ONWARD"

On Feb 14, 1:34*am, Michael Bednarek <ROT13...@gtz.pbz.nh> wrote:
> On Mon, 13 Feb 2012 12:40:54 -0800 (PST), The Writings wrote in
> microsoft.public.outlook.program_vba:
>
> >Is there a VBA code that I can use to find a user created folder?
> > A bit like serach in Windows exporer.
>
> If you know the exact path, you can address it with
> * Application.GetNamespace("MAPI").Folders("Level 1").Folders("Level 2").Folders("Level 3")
> e.g.
> * Application.GetNamespace("MAPI").Folders("Mailbox - John Doe").Folders("Inbox").Folders("foo")
>
> If you only know the folder name but not the path, you have to
> traverse the folder tree to find it. Here is some code that will
> traverse recursively a folder tree and list folder names.
>
> * Sub ListFolders(fldFolder As Variant)
> * Dim varFolder As Variant
> * Static lngLevel As Long
>
> * lngLevel = lngLevel + 1
> * For Each varFolder In fldFolder.Folders
> * * Debug.Print String(lngLevel, "+") & varFolder.Name
> * * If varFolder.Folders.Count > 0 Then
> * * * Call ListFolders(varFolder)
> * * End If
> * Next
> * lngLevel = lngLevel - 1
> * End Sub
>
> * Sub testListFolders()
> * Call ListFolders(ActiveExplorer.CurrentFolder)
> * End Sub
>
> Comparing the folder names with a search string and building a
> complete path is left as an exercise for the reader. Good luck.
>
> --
> Michael Bednarek, Brisbane * * * * * * * * * * * * "ONWARD"

Thank You Michael for the coding.
I tried to run this but I do not see any output?

TW

On Thu, 16 Feb 2012 00:57:25 -0800 (PST), The Writings wrote in
microsoft.public.outlook.program_vba:

>On Feb 14, 1:34*am, Michael Bednarek wrote:
>> On Mon, 13 Feb 2012 12:40:54 -0800 (PST), The Writings wrote in
>> microsoft.public.outlook.program_vba:
>>
>> >Is there a VBA code that I can use to find a user created folder?
>> > A bit like serach in Windows exporer.
>>
>> If you know the exact path, you can address it with
>> * Application.GetNamespace("MAPI").Folders("Level 1").Folders("Level 2").Folders("Level 3")
>> e.g.
>> * Application.GetNamespace("MAPI").Folders("Mailbox - John Doe").Folders("Inbox").Folders("foo")
>>
>> If you only know the folder name but not the path, you have to
>> traverse the folder tree to find it. Here is some code that will
>> traverse recursively a folder tree and list folder names.
[snip]
>> * * Debug.Print String(lngLevel, "+") & varFolder.Name
[snip]
>Thank You Michael for the coding.
>I tried to run this but I do not see any output?

The output of Debug.Print is shown in the VBA Editor's (Alt+F11)
Immediate Window (Ctrl+G).

--
Michael Bednarek "ONWARD"

On Feb 17, 4:44*am, Michael Bednarek
<mbATmbednarek....@BLACKHOLESPAM.NET> wrote:
> On Thu, 16 Feb 2012 00:57:25 -0800 (PST), The Writings wrote in
> microsoft.public.outlook.program_vba:
>
>
>
>
>
>
>
> >On Feb 14, 1:34*am, Michael Bednarek wrote:
> >> On Mon, 13 Feb 2012 12:40:54 -0800 (PST), The Writings wrote in
> >> microsoft.public.outlook.program_vba:
>
> >> >Is there a VBA code that I can use to find a user created folder?
> >> > A bit like serach in Windows exporer.
>
> >> If you know the exact path, you can address it with
> >> * Application.GetNamespace("MAPI").Folders("Level 1").Folders("Level2").Folders("Level 3")
> >> e.g.
> >> * Application.GetNamespace("MAPI").Folders("Mailbox - John Doe").Folders("Inbox").Folders("foo")
>
> >> If you only know the folder name but not the path, you have to
> >> traverse the folder tree to find it. Here is some code that will
> >> traverse recursively a folder tree and list folder names.
> [snip]
> >> * * Debug.Print String(lngLevel, "+") & varFolder.Name
> [snip]
> >Thank You Michael for the coding.
> >I tried to run this but I do not see any output?
>
> The output of Debug.Print is shown in the VBA Editor's (Alt+F11)
> Immediate Window (Ctrl+G).
>
> --
> Michael Bednarek * * * * * * * * * * * * * "ONWARD"- Hide quoted text -
>
> - Show quoted text -

Thanks Michael