Moving an email from a shared Inbox to a subfolder

Question

I am trying to move some emails that comes into our shared inbox (ABC COMPANY) to a subfolder (A&D) that is created inside a main folder (DAILY INFO). I have only found in the web, a macro that moves the emails from the shared inbox to the main folder, but not into the sub folder. Here is the code i found.

 Dim NS As NameSpace

 Dim sharedInbox As folder

 Dim sharedDestinationFolder As folder

 Dim sharedItems As Selection

 Dim i As Long

    Set NS = Application.GetNamespace("MAPI")
    Set sharedInbox = NS.Folders("ABC COMPANY").Folders("Inbox")
    Set sharedDestinationFolder = sharedInbox.Folders("DAILY INFO")

    Set sharedItems = ActiveExplorer.Selection

   ' Counting in reverse
    'when changing the number of items in a collection
    For i = sharedItems.Count To 1 Step -1
        sharedItems(i).Move sharedDestinationFolder
    Next i

ExitRoutine:
    Set NS = Nothing
    Set sharedItems = Nothing
    Set sharedInbox = Nothing
    Set sharedDestinationFolder = Nothing


End Sub

Please don't use CAPS for the headline.

FunThomas
– FunThomas

2019-11-04 08:32:59 +00:00
Commented Nov 4, 2019 at 8:32 — FunThomas
– FunThomas, Commented Nov 4, 2019 at 8:32
okay. Will remember not to do so.

yuki
– yuki

2019-11-04 11:03:10 +00:00
Commented Nov 4, 2019 at 11:03 — yuki
– yuki, Commented Nov 4, 2019 at 11:03

FunThomas · Accepted Answer · 2019-11-04 08:32:14Z

1

Every folder contains a folders-collection that holds its subfolders.

Assuming that your folders exists, do something like

Set sharedDestinationFolder = sharedInbox.Folders("DAILY INFO")
Set sharedDestinationFolder = sharedDestinationFolder.Folders("A&D")

of course you could do this with a single statement, but this makes it harder to debug if something fails

Set sharedDestinationFolder = sharedInbox.Folders("DAILY INFO").Folders("A&D")

answered Nov 4, 2019 at 8:32

FunThomas

31.3k4 gold badges24 silver badges40 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

yuki Over a year ago

Hi Thomas, Thank you so much. It worked!!! Really appreciate it :)

FunThomas Over a year ago

Hi @yuki, as you haven't done the StackOverflow tour (you should do so to understand how SO works): You can (and should) flag an answer as "accepted" if it answered your question best. If a question get's several answers, the "accepted" one is sorted to the top. And in the question list the question is marked in green to show that it has already an accepted answer.

Collectives™ on Stack Overflow

Moving an email from a shared Inbox to a subfolder

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related