Alli
10-11-2017, 12:09 PM
Now I know there are probably a few posts about this floating around however I am having an extremely difficult time finding one that will work. I have sent the last hour looking on the internet for a solution to my problem and have gotten nothing that wants to work.
So here it is I just want to move a darn email using a macro.
Now I know there are other ways to do this however my boss has very specifically requested i patch together a macro for him (and since i like my job I am not about to be arguing about it) that does two things makes the selected email or emails marked as read and then archives them. We as a firm move emails as soon as we have read them and dealt with them or alternatively the moment they come in if they do not have to be read first, so volume wise this action will never be performed on more then 1 to 3 emails at a time.
The marking as read part I have working with no problem on one email but i am not sure how to take it from that to the nth email.
Right now I am using this to mark as read:
Set obj = Application.ActiveExplorer.Selection(1)obj.UnRead = False
obj.Save
Set obj = Nothing
Now after that point I would like to call another macro to move all the selected emails to the Archive Folder (the default one where emails go when you hit backspace or press the Archive button).
And that is it.
As a bit of a informational point here I am using Outlook 2016.
Any help would be greatly appreciated.
So here it is I just want to move a darn email using a macro.
Now I know there are other ways to do this however my boss has very specifically requested i patch together a macro for him (and since i like my job I am not about to be arguing about it) that does two things makes the selected email or emails marked as read and then archives them. We as a firm move emails as soon as we have read them and dealt with them or alternatively the moment they come in if they do not have to be read first, so volume wise this action will never be performed on more then 1 to 3 emails at a time.
The marking as read part I have working with no problem on one email but i am not sure how to take it from that to the nth email.
Right now I am using this to mark as read:
Set obj = Application.ActiveExplorer.Selection(1)obj.UnRead = False
obj.Save
Set obj = Nothing
Now after that point I would like to call another macro to move all the selected emails to the Archive Folder (the default one where emails go when you hit backspace or press the Archive button).
And that is it.
As a bit of a informational point here I am using Outlook 2016.
Any help would be greatly appreciated.