Mondays Mission: Macro to extract text from an email and paste it into an EXCEL Sheet

[maxwello]

Good Morning All,
I don’t know if this is possible but have hundreds of emails that I need to collect the data that is held in the body of the email. All the emails have the same text layout and the fields that I want to extract have the same headings. (See below example)

I would really appreciate any assistance or advice that you are able to provide.

Dear Sir,
Please find my account setup below.</SPAN>

User Name:Joe Blogs</SPAN>
User Firm:Blogs Inc</SPAN>
Email address: Joe.blogs@blogsinc.co.uk</SPAN>
Country:ENGLAND</SPAN>
UUID:1111111</SPAN>
User #:123456</SPAN>
Cust #:123456</SPAN>
Firm #:123456</SPAN>
Serial #:123456</SPAN>
Broker:ABAX</SPAN>
Application:Windows</SPAN>

 

[Comfy]

This works perfectly after a few tweeks and it now produces a great powerpoint presentation. I am now trying to pick up infromation from a number of other emial folders but this time I only need the subject line, the date it was recieved, the to field and the catetgory that has been assigned to it.

I have tried amneding the previous scripts and set the Headers and UserPropertiesArray(1) with things like "To:" "msg.to" and the best result came from setting the header as "[msg.subject]" but this then returnd the same results for "to:".

Debug.Print oMailItem.subject 'Subject
Debug.Print oMailItem.To 'To
Debug.Print oMailItem.Categories 'Category
Debug.Print oMailItem.LastModificationTime 'Received

I am sorry to ask you again but can you help again with extracting that info as well as helping to work out how to make it search all sub folders under a folder.

Example structure:
Inbox
bloomberg
tradeweb
markit

Paste the code that you have an we'll have to update it slightly so that it takes a MAPI folder as a parameter.