vba - Select all items in a specific folder and move them to another folder -

how select mails in deleted items folder of shared account (not personal account) , move them different folder not called "deleted items". now, let's call destination folder "old emails".

here have written far:

'macro pseudo-archiving sub pseudoarchive() on error resume next  dim objnamespace outlook.namespace dim sourcefolder outlook.mapifolder dim messages selection dim msg mailitem  set objnamespace = getnamespace("mapi") set sourcefolder = objnamespace.folders("sharedemail@website.com") set sourcefolder = objfolder.folders("deleted items")  'define path target folder set destinationfolder = ns.folders("sharedemail@website.com").folders("old emails")  'move emails in sourcefolder destinationfolder each msg in sourcefolder     msg.move destinationfolder next  set objnamespace = nothing set sourcefolder = nothing set messages = nothing set msg = nothing  end sub 

i stuck on how macro select items in sourcefolder can move them destinationfolder. prefer not manually select emails in folder before running macro.

if can provide assistance, appreciated. thanks!

so not code writing service, here code snippet should help.

dim olapp outlook.application dim olfol outlook.folder, oldestfol outlook.folder dim olitem object dim long, j long set olapp = new outlook.application olapp.getnamespace("mapi").folders("mailboxnamehere").folders("deleted items") set oldestfol = olapp.getnamespace("mapi").folders("mailboxnamehere").folders("inbox").folders("deleted items") ' destination folder until olfol.items.count = 0     olfol.items(1).move oldestfolder loop 

let me know in comments if have questions this.