Outlook Folders Tree View

[cyb3rwolf]

Hey everyone,

I want to have an outlook mailbox/folder selector embedded in an Access 2003 Form. I'm guessing a Microsoft Treeview Control would be the best way to go. I do not, however know how to go aobut populating the control with all the mailboxes and folders (including subfolders) from outllook. Anybody help me out or get me pointed in the right direction?

 

[Trevor G]

The following code is used within Excel but what it does is shows the FolderPicker which is what you are asking from.

Get Outlook emails into Excel but use PickFolder

Sub ListAllItemsInInbox()
Dim OLF As Outlook.MAPIFolder, CurrUser As String
Dim EmailItemCount As Integer, i As Integer, EmailCount As Integer
Application.ScreenUpdating = False
Workbooks.Add ' create a new workbook
' add headings
Cells(1, 1).Formula = "Subject"
Cells(1, 2).Formula = "Recieved"
Cells(1, 3).Formula = "Attachments"
Cells(1, 4).Formula = "Read"
With Range("A11").Font
.Bold = True
.Size = 14
End With
Application.Calculation = xlCalculationManual
Set OLF = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder '.Change this to PickFolder
EmailItemCount = OLF.Items.Count
i = 0: EmailCount = 0
' read e-mail information
While i < EmailItemCount
i = i + 1
If i Mod 50 = 0 Then Application.StatusBar = "Reading e-mail messages " & _
Format(i / EmailItemCount, "0%") & "..."
With OLF.Items(i)
EmailCount = EmailCount + 1
Cells(EmailCount + 1, 1).Formula = .Subject
Cells(EmailCount + 1, 2).Formula = Format(.ReceivedTime, "dd.mm.yyyy hh:mm")
Cells(EmailCount + 1, 3).Formula = .Attachments.Count
Cells(EmailCount + 1, 4).Formula = Not .UnRead
End With
Wend
Application.Calculation = xlCalculationAutomatic
Set OLF = Nothing
Columns("A").AutoFit
Range("A2").Select
ActiveWindow.FreezePanes = True
ActiveWorkbook.Saved = True
Application.StatusBar = False
End Sub

 

[cyb3rwolf]

Thanks; i had actually already figured it out shortly after posting this thread. I'll paste the link where I found the solution for anybody trying to accomplish the same thing; this is exactly what i needed: http://windowssecrets.com/forums/sh...ew-control-with-Outlook-folders-(Access-2002))