Outlook VBA: Move/Copy nested PDF files in attached emails to folder on desktop.

[Sergioff]

Hi,
Can You tell me, how to to change the PickFolder to "Selected messages" in this Macro?