Access posted files in Outlook public folders using Excel VBA

[TvH]

Hi,

I am creating a macro in Excel 97 to open Excel files (or save them somewhere else) which are posted in the Outlook 98 Public Folders. These Excel files are NOT attachments to mails though. I can get into the Public Folder and see the items posted there, but I can't open/save them (the file is not recognized as a mailitem or postitem). Does anyone know how to do this?

Thanks.
Ted

 

[TvH]

Just when I got really desperate I found something to open posted files:

    Set mailApp = New Outlook.Application
    Set mailNameSpace = mailApp.GetNamespace("MAPI")
    Set mailFolder = mailNameSpace.Folders("Folders1") _
                                  .Folders("Folders2") _
                                  .Folders("Folders3") _
                                  .Folders("Folders4")
                                  .Folders("FoldersEtc")
    
    For i = 1 To mailFolder.Items.Count
        If mailFolder.Items.Item(i) = "FileName.xls" Then
            mailFolder.Items.Item(i).Display
        End If
    Next

From here on you can access the file in excel and do whatever you want with it.

TvH