Autopopulate email attachments to specific document folders

[Aberdham]

Dear all,

I am currently receiving a large number of purchase invoices and sales invoices into 2 email address:

- Purchase invoices are sent to AP@htc-ABNAO-services
- Sales invoices are sent to AR@htc-ABNAO-Services

I have to drag the attachment from the email to the invoice Folders one by one and rename them.

All the sales invoices are formatted as
- 15ARXXXXXX
- 15ADXXXXXX
- 15MRXXXXXX
- 15MDXXXXXX
- Invoice #HTC000XXX

However, there are no defined formats within the purchase invoices,

Could anyone help me to come up with a VBA code to automatically extract the invoices from the email to a specific invoice Folder and rename it as follows:
- 15ARXXXXXX
- 15ADXXXXXX
- 15MRXXXXXX
- 15MDXXXXXX
- HTC000XXX

Any help would be greatly appreciated!

Thank you in advance !