August 29, 2008 10:10pm pdt

1. capricorn1 2,357,876
2. DatabaseMX 1,578,962
3. LSMCons... 738,913
4. boag2000 655,583
5. peter57r 538,288
6. GRayL 451,989
7. harfang 437,453
8. jimhorn 322,342
9. cactus_d... 299,026
10. matthews... 256,874
11. TextReport 236,057
12. hnasr 232,150
13. ee_rlee 173,155
14. angelIII 163,304
15. puppydog... 149,767
16. jimpen 149,684
17. mbizup 147,354
18. jefftwilley 140,435
19. LPurvis 139,254
20. JezWalters 138,435
21. omgang 130,049
22. Rick_Ric... 126,252
23. koutny 122,251
24. tbsgadi 120,968
25. MikeToole 118,626

1. capricorn1 10,014,914
2. nico5038 5,704,781
3. rockiroads 5,409,687
4. peter57r 3,982,783
5. LSMCons... 3,475,503
6. DatabaseMX 3,462,423
7. LPurvis 3,398,221
8. shanesue... 3,288,317
9. harfang 3,054,286
10. stevbe 2,857,111
11. jimhorn 2,741,934
12. GRayL 2,611,833
13. flavo 2,111,583
14. mbizup 2,033,944
15. jadedata 1,964,977
16. jefftwilley 1,799,875
17. thenelson 1,697,869
18. matthews... 1,594,087
19. eghtebas 1,487,093
20. boag2000 1,338,327
21. puppydog... 1,329,230
22. Arthur_... 1,285,298
23. cactus_d... 1,271,815
24. jjafferr 1,265,357
25. dannywar... 1,260,596

07.16.2008 at 10:57AM PDT, ID: 23570636

	[x] Attachment Details

Outlook Email Folder Names

Asked by eghtebas in Microsoft Access Database, Visual Basic Programming, Outlook Groupware Software

At:

http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_23567902.html

I have a good solution from Rick_Rickards, I like to revise it to read the folder name that have or can have emails (not interested in folders like calendar or Journal, etc.). I want to read these folder names to populate a table in access (later to populate a combo box for user to pick a folder ....).

The existing code is included below.

Question: How can I revise it so that it will read the name of folder created to contain email messages?

Thank you,

Mike
Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

           
           
             Sub Sample()
    Dim outApp As New Outlook.Application
    Dim outNS As Outlook.NameSpace
    Dim outFdr  As Outlook.MAPIFolder
    Set outNS = outApp.GetNamespace("MAPI")
    For Each outFdr In outNS.Folders
        OMF2 outFdr
    Next outFdr
End Sub
 
Function OMF2(F As Outlook.MAPIFolder, Optional lngLayer As Long = 0)
    Dim lng As Long
    'Debug.Print Space(lngLayer * 3) & f.Name
    CurrentDb.Execute "Insert Into tOLK_Folders(Folder,Class,CurrentView,Description,FolderPath) Values('" & F.Name & "', '" & CStr(F.Class) & "', '" & CStr(F.CurrentView) & "', '" & F.Description & "', '" & F.FolderPath & "')"
    For lng = 1 To F.Folders.Count
        OMF2 F.Folders(lng), lngLayer + 1
    Next lng
End Function

           
         

Keywords: Outlook Email Folder Names

	Title
1	Exchange 2003 - Prevent Deletion …
2	Can different Outlook Calendars be Sy…
3	Outlook's My Calendars and Other Ca…
4	Outlook Calendar
5	Updating Calendar using Outlook form.
6	Hide Journal, Junk-Email, drafts, f…

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_EXPERT_20070906

Outlook Email Folder Names

Asked by eghtebas in Microsoft Access Database, Visual Basic Programming, Outlook Groupware Software

About this solution