{"id":54082,"date":"2023-08-12T10:31:44","date_gmt":"2023-08-12T09:31:44","guid":{"rendered":"https:\/\/ekiwi-blog.de\/54082\/vba-outlook-automatically-move-e-mail-to-another-folder-with-macro\/"},"modified":"2023-08-12T10:38:51","modified_gmt":"2023-08-12T09:38:51","slug":"vba-outlook-automatically-move-e-mail-to-another-folder-with-macro","status":"publish","type":"post","link":"https:\/\/ekiwi-blog.de\/en\/54082\/vba-outlook-automatically-move-e-mail-to-another-folder-with-macro\/","title":{"rendered":"VBA Outlook macro: Automatically move e-mail to another folder"},"content":{"rendered":"

To simplify and speed up the work with many mails, it is advisable to insert a few automatisms. This is the case, for example, if you receive a lot of emails of a certain type that you want to automatically assign to a certain subfolder.
\nExample 1:<\/strong> You get a lot of emails from your online shop with incoming orders and you want them to be automatically moved to a folder called “Orders<\/em>“.
\nExample 2:<\/strong> You simply want to move certain selected emails from the inbox to an archive folder with one click.<\/p>\n

Of course, you can also use Outlook’s built-in functions for creating automatic rules. The following screenshot shows where to find them.<\/p>\n

\"Screenshot
Create rule for moving an email to subfolder<\/figcaption><\/figure>\n

However, there are certainly use cases where this is not quite the appropriate tool of first choice, e.g. if you want to banish all marked emails to a certain subfolder with one click. Or if you already have another VBA macro<\/a>, e.g. for automatically replying to an email, and in the same macro you want to mark the source mail as read<\/a> and then move it from the inbox somewhere else.<\/p>\n

VBA code: Move email to subfolder<\/h2>\n

The following screenshot and code example show how to move one or more selected emails to a subfolder of the Inbox.<\/p>\n

\"VBA
VBA-Code: Move email to subfolder<\/figcaption><\/figure>\n

This code example loops through all the emails selected in Outlook in the For Each<\/em> loop and then moves them to a specified folder (“All Mails”<\/em>), which is a subfolder of the Inbox.<\/p>\n

Public Sub<\/span> MoveMail()\r\n    Dim<\/span> olItem As<\/span> Outlook.MailItem\r\n    Dim<\/span> objNS As<\/span> Outlook.NameSpace\r\n    Dim<\/span> objFolder As<\/span> Outlook.MAPIFolder\r\n    Dim<\/span> destFolder As<\/span> Outlook.Folder\r\n    \r\n    'Define the destination folder; in this case it is \"All Mails\", a subfolder of \"Inbox\".<\/span>\r\n    Set<\/span> objNS = GetNamespace(\"MAPI\")\r\n    Set<\/span> objFolder = objNS.Folders.GetFirst ' folder of the current mailbox<\/span>.\r\n    Set<\/span> objFolder = objFolder.Folders(\"Inbox\")\r\n    Set<\/span> destFolder = objFolder.Folders(\"All Mails\")\r\n    \r\n    'Move all selected emails to the defined subfolder<\/span>.<\/span>\r\n    For Each<\/span> olItem In<\/span> Application.ActiveExplorer.Selection\r\n        olItem.Move destFolder\r\n    Next<\/span> olItem\r\nEnd Sub\r\n<\/span><\/code><\/pre>\n
To get the object for the subfolder, you first have to define the Mapi namespace (GetNamespace(“MAPI”)<\/em>). There you determine the relevant mailbox with objNS.Folders.GetFirst<\/em>. We use GetFirst<\/em> here because the relevant mailbox is in the first place in Outlook. If you have several mailboxes, you can either navigate to them with GetNext<\/em> or address them directly via the index using .Item(number)<\/em>.<\/p>\n
Then define the inbox as a folder and access its folder array to define the appropriate subfolder of the inbox. This is then the destination folder where the selected e-mails are to be moved to.<\/p>\n
Please note that for the code to work, various references must be activated under References.<\/p>\n
\"Screenshot
Set the required library under Extras \/ Links<\/figcaption><\/figure>","protected":false},"excerpt":{"rendered":"
To simplify and speed up the work with many mails, it is advisable to insert a few automatisms. This is<\/p>\n","protected":false},"author":2,"featured_media":6532,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1555],"tags":[1701,2249,2252,1855,1707,2737,3154,1857,1858,2168,3231,1700,1861,2715,1862,2068,1710],"class_list":["post-54082","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-software-en","tag-access-en","tag-automatisch","tag-code-en","tag-excel-en-2","tag-macro","tag-macros","tag-makros-en","tag-microsoft-en-2","tag-microsoft-office-en-2","tag-office-en","tag-powerpoint-en","tag-programming","tag-vba-en-2","tag-vba-code-en","tag-visual-basic-for-application-en-2","tag-windows-en-2","tag-word-en"],"_links":{"self":[{"href":"https:\/\/ekiwi-blog.de\/en\/wp-json\/wp\/v2\/posts\/54082","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/ekiwi-blog.de\/en\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/ekiwi-blog.de\/en\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/ekiwi-blog.de\/en\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/ekiwi-blog.de\/en\/wp-json\/wp\/v2\/comments?post=54082"}],"version-history":[{"count":0,"href":"https:\/\/ekiwi-blog.de\/en\/wp-json\/wp\/v2\/posts\/54082\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/ekiwi-blog.de\/en\/wp-json\/wp\/v2\/media\/6532"}],"wp:attachment":[{"href":"https:\/\/ekiwi-blog.de\/en\/wp-json\/wp\/v2\/media?parent=54082"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/ekiwi-blog.de\/en\/wp-json\/wp\/v2\/categories?post=54082"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/ekiwi-blog.de\/en\/wp-json\/wp\/v2\/tags?post=54082"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}