List attachments

I receive many emails with attachments, which I usually remove to my file system, and then delete the attachments from the emails to keep my .ost file from exploding. When I do that, I want to keep a record of the attached filenames so when I'm looking through the emails I can see when they arrived. Despite knowing almost nothing about the Outlook object model, I managed to write the macro below to do just that, and I find it very convenient:

Please Login or Register  to view this content.

However, there are frequently a stack of forwards and replies in the same mail item. Rather than add the list at the very bottom of all those, I would prefer to put the cursor where I want the list to appear (e.g., just below the message at the top of the stack), and then run the macro. A suggestion to do that would be most welcome.

Also, the macro currently rewrites the whole message just to append the list at the bottom -- that seems clunky. Even without the enhancement above, surely it could just append to the bottom. Or, with the enhancement, insert at the cursor position.

Thanks for reading.

Now cross-posted at https://www.mrexcel.com/forum/excel-...ml#post4790406