Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 07-10-2020, 01:50 AM
lstoch lstoch is offline Indexing folders Windows 10 Indexing folders Office 2010
Novice
Indexing folders
 
Join Date: Jul 2020
Posts: 8
lstoch is on a distinguished road
Default Indexing folders

Hi



I find scrolling through the Outlook folders very tiresome.

Is anyone aware of an Outlook addon that allows one to access outlook folders via an alphabetic index.

For example, if I want to access an outlook folder with the name of Zephyr, I click on the letter "Z" in the index and the folders scroll to the Zephyr folder.

Regards
Leonard
Reply With Quote
  #2  
Old 07-10-2020, 11:57 PM
gmayor's Avatar
gmayor gmayor is offline Indexing folders Windows 10 Indexing folders Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,101
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

Assuming the folders are sub folders of your inbox then import the attached userform into Outlook and use it to access any folder by initial letter.

Call it with a macro
Code:
 
Sub Macro1()
frmFolders.Show
End Sub
Attached Files
File Type: zip Userform.zip (6.4 KB, 9 views)
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

Last edited by gmayor; 07-11-2020 at 11:22 PM.
Reply With Quote
  #3  
Old 07-11-2020, 04:18 AM
lstoch lstoch is offline Indexing folders Windows 10 Indexing folders Office 2010
Novice
Indexing folders
 
Join Date: Jul 2020
Posts: 8
lstoch is on a distinguished road
Default Indexing folders

Thanks, but I need to access folders in Outlook, not in Inbox
Reply With Quote
  #4  
Old 07-11-2020, 04:28 AM
gmayor's Avatar
gmayor gmayor is offline Indexing folders Windows 10 Indexing folders Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,101
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

Which folders?
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
  #5  
Old 07-11-2020, 04:31 AM
lstoch lstoch is offline Indexing folders Windows 10 Indexing folders Office 2010
Novice
Indexing folders
 
Join Date: Jul 2020
Posts: 8
lstoch is on a distinguished road
Default

I have scores of folders I have created.

They are not reside under the Inbox
Reply With Quote
  #6  
Old 07-11-2020, 05:42 AM
gmayor's Avatar
gmayor gmayor is offline Indexing folders Windows 10 Indexing folders Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,101
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

Where do they reside?
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
  #7  
Old 07-11-2020, 05:44 AM
lstoch lstoch is offline Indexing folders Windows 10 Indexing folders Office 2010
Novice
Indexing folders
 
Join Date: Jul 2020
Posts: 8
lstoch is on a distinguished road
Default

under "Outlook"
Reply With Quote
  #8  
Old 07-11-2020, 05:46 AM
lstoch lstoch is offline Indexing folders Windows 10 Indexing folders Office 2010
Novice
Indexing folders
 
Join Date: Jul 2020
Posts: 8
lstoch is on a distinguished road
Default

at the same level as "Inbox"

Also, I need to enter the first character of the folder name for outlook to jump to the first folder starting with that character.

At the moment I spend ages scrolling through my folders.

Ideally indexing something like under "address book" with an alphabet list
Reply With Quote
  #9  
Old 07-11-2020, 08:01 PM
gmayor's Avatar
gmayor gmayor is offline Indexing folders Windows 10 Indexing folders Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,101
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default



If they are on the same level as Inbox then replace the three macros below in the userform code and it will display all the folders (and subfolders) on the same level as inbox by initial letter:
Code:
Private Sub lstFolders_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim olFldr As Folder
Dim vFolder As Variant
Dim i As Integer
    Set olFldr = Session.GetDefaultFolder(olFolderInbox).Parent
    vFolder = Split(lstFolders.Text, "\")
    For i = 0 To UBound(vFolder)
        Set olFldr = olFldr.folders(vFolder(i))
    Next i
    Hide
    olFldr.Display
lbl_Exit:
    Set olFldr = Nothing
    Unload Me
    Exit Sub
End Sub


Private Sub CommandOK_Click()
Dim olFldr As Folder
Dim vFolder As Variant
Dim i As Integer
    If lstFolders.ListIndex > -1 Then
        Set olFldr = Session.GetDefaultFolder(olFolderInbox).Parent
        vFolder = Split(lstFolders.Text, "\")
        For i = 0 To UBound(vFolder)
            Set olFldr = olFldr.folders(vFolder(i))
        Next i
        Hide
        olFldr.Display
    Else
        Beep
        MsgBox "Nothing selected"
    End If
lbl_Exit:
    Set olFldr = Nothing
    Unload Me
    Exit Sub
End Sub

Private Sub ResetList(X As String)
Dim cFolders As Collection
Dim olfolder As Outlook.Folder
Dim SubFolder As Outlook.Folder
Dim olNS As Outlook.NameSpace
Dim strPath As String
Dim sSubPath As String
Dim sStore As String
    lstFolders.Clear
    Set cFolders = New Collection
    Set olNS = GetNamespace("MAPI")
    cFolders.Add olNS.GetDefaultFolder(olFolderInbox).Parent
    Do While cFolders.Count > 0
        Set olfolder = cFolders(1)
        cFolders.Remove 1
        sStore = olfolder.Store
        sSubPath = Replace(olfolder.FolderPath, "\\" & sStore & "\", strPath)

        ProcessFolder olfolder, sSubPath, X
        If olfolder.folders.Count > 0 Then
            For Each SubFolder In olfolder.folders
                cFolders.Add SubFolder
            Next SubFolder
        End If
    Loop
lbl_Exit:
    Set olfolder = Nothing
    Set SubFolder = Nothing
    Set cFolders = Nothing
    Exit Sub
 End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
  #10  
Old 07-11-2020, 08:42 PM
lstoch lstoch is offline Indexing folders Windows 10 Indexing folders Office 2010
Novice
Indexing folders
 
Join Date: Jul 2020
Posts: 8
lstoch is on a distinguished road
Default

Thanks so much - I'll give it a try when I'm fully awake
Reply With Quote
  #11  
Old 07-11-2020, 11:27 PM
gmayor's Avatar
gmayor gmayor is offline Indexing folders Windows 10 Indexing folders Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,101
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

I have updated the userform to allow the selection of folders that begin with a number, so if you have already downloaded, do so again to get the updated form.
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
  #12  
Old 07-12-2020, 02:54 AM
lstoch lstoch is offline Indexing folders Windows 10 Indexing folders Office 2010
Novice
Indexing folders
 
Join Date: Jul 2020
Posts: 8
lstoch is on a distinguished road
Default Indexing folders

Hi Graham

Thanks for the detailed response and the code.

However, the routine "ProcessFolder" appears to be missing. Please send it to me.

Regards
Leonard
Reply With Quote
  #13  
Old 07-12-2020, 07:45 AM
lstoch lstoch is offline Indexing folders Windows 10 Indexing folders Office 2010
Novice
Indexing folders
 
Join Date: Jul 2020
Posts: 8
lstoch is on a distinguished road
Default

I'm running Office 10 and am seeing lots of errors
Attached Images
File Type: jpg vbaproj.jpg (203.1 KB, 5 views)
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Indexing folders Indexing Holger Rudbeck Word 2 05-02-2020 03:13 PM
Indexing folders Indexing whole document Matt Rance Word 8 11-06-2012 06:05 AM
Indexing folders Auto Indexing won052 Word 1 07-27-2012 11:43 AM
Indexing folders Indexing - Subentries godofpool Word 1 07-09-2012 11:28 AM
Indexing folders Auto indexing tomsan Word 1 03-05-2012 03:54 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 02:49 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft