How to create Macro in Outlook 365 to copy to personal folder

[weety]

I have set up Outlook so that when I click the button that says "archive" it moves the email to a folder called "Read". I wanted to move it to a personal folder but couldn't find a way to do that.

What I now want to do is to create a macro that moves emails from the folder called "read" to a personal folder called "read".

I am new to Macros in Outlook so bear with me as I will likely need some detail.



Thanks

[gmayor]

In order to do this it is necessary to understand your folder tree and where in relation to that tree the two 'read' folders in question lie. What are the names of the folder headings in the folder task pane and where does the read folder lie?

[weety]

Hi,

We have an exchange server. One of my folders on the server is called "Read". This is in the root folder. This is the folder that I use when I click "Archive". I also have personal folders set up which are stored locally. I have one folder here also called "read". This is also in the root folder.

Does this help?

[gmayor]

The following should help you get started.

Sub MoveToRead()
Dim olMsg As MailItem
Dim olStore As Store
Dim olFolder As Folder
    On Error Resume Next
    Set olMsg = ActiveExplorer.Selection.Item(1)
    For Each olStore In Session.Stores
        If olStore.DisplayName = "Personal Folders" Then    'the name of the root folder
            Set olFolder = olStore.GetRootFolder.folders("Read")    'a folder directly off the root
            olMsg.Move olFolder
            Exit For
        End If
    Next olStore
lbl_Exit:
    Exit Sub
End Sub