Extract data from Outlook messages saved in a C drive folder

[ZeeRSA]

[FONT=&quot]Hi

Please can someone assist me, [/FONT]All the answers to this problem pulls the emails directly from outlook, however, I have a folder where an administrator has saved each individual email as a file, I need to extract the data within each of those emails into an excel list which I can then create a data set from to report on.

Please assist any feedback would be helpful tx

please note each email received is saved this way from outlook

 

[Worf]

Hi

What is the file format? HTML, Txt, MSG?

 

[ZeeRSA]

Hello

its MSG

Also I notices some of them have emails saved in emails but they are all MSG

 

[Worf]

Tell me if the code needs to search the files for several layers of MSG attachments until the real message is found.

[FONT=Courier New][COLOR=#000000] 
' Excel module
Sub XL_OL()
Dim objOL As Outlook.Application, Msg As MailItem, inpath$, fl, r As Range
Set r = [t1]                                                ' where to paste
Set objOL = CreateObject("Outlook.Application")
inpath = "C:\temp"                                          ' the folder
fl = LCase(Dir(inpath & "\*.msg"))
Do While fl <> ""
    Set r = r.Offset(1)
    Set Msg = objOL.Session.OpenSharedItem(inpath & "\" & fl)
    r = Msg.Body                                            ' copy to cell
    fl = Dir
Loop
Set objOL = Nothing
Set Msg = Nothing
End Sub<strike></strike>
[/COLOR][/FONT]
<strike></strike>

 

[ZeeRSA]

Hey I can't test this macro

it says Compile error : User-defined type not defined

 

[Worf]

Add a reference at VBE>Tools>References>Microsoft Outlook xx Object Library.

 

[ZeeRSA]

THANK YOU SOOOOO MUCH!!!! YOU ARE A TOTAL ROCKSTAR!

I just wanted to check if it is opening all the emails in the emails? Just to be sure we are not missing any?

Thanks again!! I reallllyyy appreciate the help

 

[Worf]

You are welcome!

The code currently does not dig into multiple attachment levels on each message, tell me if you will need that.