Skip to content

Instantly share code, notes, and snippets.

@ezhov-da
Last active March 10, 2019 12:17
Show Gist options
  • Save ezhov-da/5b78891ec5f4f0fd2bcbd97e691ece79 to your computer and use it in GitHub Desktop.
Save ezhov-da/5b78891ec5f4f0fd2bcbd97e691ece79 to your computer and use it in GitHub Desktop.
vba outlook show folder list
Sub test()
Dim f1 As Folder
For i = 1 To Session.Folders.Count
Set f1 = Session.Folders(i)
Debug.Print "->" & f1.Name
Next i
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment