On Sep 16, 9:15*pm, "Diane Poremsky [MVP]" wrote:
instead of
Public Folders\Favorites\Completed_Apps

try the exact path to the folder
Public Folders\All Public Folders\where_ever\Completed_Apps

--
Diane Poremsky [MVP - Outlook]
Outlook Tips:http://www.outlook-tips.net/
Outlook & Exchange Solutions Center:http://www.slipstick.com

Outlook Tips by email:


EMO - a weekly newsletter about Outlook and Exchange:


Do you keep Outlook open 24/7? Vote in our poll:http://forums.slipstick.com/showthread.php?t=22205

"steve62" wrote in message

...



Can anyone PLEASE tell me why this doesn't work? *It DID work when I
went after my own inbox...

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 = "Received"
* *Cells(1, 3).Formula = "Attachments"
* *Cells(1, 4).Formula = "Read"
* *With Range("A11").Font
* * * *.Bold = True
* * * *.Size = 14
* *End With
* *Application.Calculation = xlCalculationManual
* *StrPublicFolder = "Public Folders\Favorites\Completed_Apps"
* *Set OLF = GetObject(" ", _
* * * * * * * * * * * * "Outlook.Application").GetNamespace
("MAPI").GetFolder(StrPublicFolder)
* *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,
"mm/dd/yyyy")
* * * * * *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- Hide quoted text -

- Show quoted text -

Thank you SO much for your reply.....In a previous version I DID have
the exact folder path. But that did not work either.