{"id":275,"date":"2013-04-10T12:22:39","date_gmt":"2013-04-10T12:22:39","guid":{"rendered":"http:\/\/visit.markjacobsen.net\/?p=275"},"modified":"2013-12-20T13:13:44","modified_gmt":"2013-12-20T13:13:44","slug":"outlook-macros-to-categorize-and-archive-messages","status":"publish","type":"post","link":"https:\/\/markjacobsen.net\/2013\/04\/outlook-macros-to-categorize-and-archive-messages\/","title":{"rendered":"Outlook Macros to Categorize and Archive Messages"},"content":{"rendered":"<p>If you&#8217;re still rockin&#8217; Outlook 2007 and want to create some macros to categorize or archive your email, here&#8217;s some copy and paste code to have fun with&#8230;<\/p>\n<pre><code>\r\nSub Archive()\r\n    Call CommonCategorizeAndArchive(True, False, False)\r\nEnd Sub\r\n\r\nSub Categorize()\r\n    Call CommonCategorizeAndArchive(False, True, False)\r\nEnd Sub\r\n\r\nSub CategorizeAndArchive()\r\n    Call CommonCategorizeAndArchive(True, True, False)\r\nEnd Sub\r\n\r\nSub Task()\r\n    Call CommonCategorizeAndArchive(True, True, True)\r\nEnd Sub\r\n\r\nPrivate Sub CommonCategorizeAndArchive(archiveEm As Boolean, categorizeEm As Boolean, taskIt As Boolean)\r\n    Dim olApp As New Outlook.Application\r\n    Dim olItem As Object\r\n    Dim olExp As Outlook.Explorer\r\n    Dim olSel As Outlook.Selection\r\n    Dim olArchive As Outlook.Folder\r\n    Dim olTasks As Outlook.Folder\r\n    Dim olNameSpace As Outlook.NameSpace\r\n    Dim olTmpMailItem As Outlook.MailItem\r\n    \r\n    Set olExp = olApp.ActiveExplorer\r\n    Set olSel = olExp.Selection\r\n    Set olNameSpace = olApp.GetNamespace(\"MAPI\")\r\n    \r\n    Set olArchive = olNameSpace.GetDefaultFolder(olFolderInbox).Folders(\"@Archive\")\r\n    Set olTasks = olNameSpace.GetDefaultFolder(olFolderInbox).Folders(\"zTasks\")\r\n\r\n    For intItem = 1 To olSel.Count\r\n        Set olItem = olSel.Item(intItem)\r\n        olItem.UnRead = False\r\n        \r\n        If (categorizeEm = True) Then\r\n            olItem.ShowCategoriesDialog\r\n        End If\r\n        \r\n        If (archiveEm = True) Then\r\n            olItem.Move olArchive\r\n        End If\r\n        \r\n        If (taskIt = True) Then\r\n            Set olTmpMailItem = olItem.Copy\r\n            olTmpMailItem.Move olTasks\r\n        End If\r\n    Next intItem\r\nEnd Sub\r\n<\/code><\/pre>\n<i>Please remember to <a href=\"https:\/\/markjacobsen.net\/newsletter\" target=\"_blank\">subscribe to the newsletter<\/a> to stay up to date!<\/i><br\/>\n<br\/>\n<i>You or someone you know looking to buy or sell?<\/i>\n<a href=\"https:\/\/freedomre.com\" target=\"_blank\" rel=\"noopener\"><img decoding=\"async\" src=\"https:\/\/markjacobsen.net\/wp-content\/uploads\/2019\/09\/freedomre-glre-small.png\" border=\"0\" \/><\/a><br\/>\n<i><small>Disclaimer: Thoughts and opinions are my own, and do not reflect the views of any employer, family member, friend, or anyone else. Some links may be affiliate links, but I don't link to anything I don't use myself. You would think this should be self evident these days, but apparently not...<\/small><\/i>","protected":false},"excerpt":{"rendered":"<p>If you&#8217;re still rockin&#8217; Outlook 2007 and want to create some macros to categorize or archive your email, here&#8217;s some copy and paste code to have fun with&#8230; Sub Archive() Call CommonCategorizeAndArchive(True, False, False) End Sub Sub Categorize() Call CommonCategorizeAndArchive(False, True, False) End Sub Sub CategorizeAndArchive() Call CommonCategorizeAndArchive(True, True, False) End Sub Sub Task() Call &hellip; <a href=\"https:\/\/markjacobsen.net\/2013\/04\/outlook-macros-to-categorize-and-archive-messages\/\" class=\"more-link\">Continue reading <span class=\"screen-reader-text\">Outlook Macros to Categorize and Archive Messages<\/span> <span class=\"meta-nav\">&rarr;<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"footnotes":"","_jetpack_memberships_contains_paid_content":false,"jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","enabled":false},"version":2}},"categories":[13],"tags":[19,18,34],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p2UXeD-4r","jetpack_sharing_enabled":true,"jetpack-related-posts":[],"jetpack_likes_enabled":false,"_links":{"self":[{"href":"https:\/\/markjacobsen.net\/wp-json\/wp\/v2\/posts\/275"}],"collection":[{"href":"https:\/\/markjacobsen.net\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/markjacobsen.net\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/markjacobsen.net\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/markjacobsen.net\/wp-json\/wp\/v2\/comments?post=275"}],"version-history":[{"count":4,"href":"https:\/\/markjacobsen.net\/wp-json\/wp\/v2\/posts\/275\/revisions"}],"predecessor-version":[{"id":431,"href":"https:\/\/markjacobsen.net\/wp-json\/wp\/v2\/posts\/275\/revisions\/431"}],"wp:attachment":[{"href":"https:\/\/markjacobsen.net\/wp-json\/wp\/v2\/media?parent=275"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/markjacobsen.net\/wp-json\/wp\/v2\/categories?post=275"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/markjacobsen.net\/wp-json\/wp\/v2\/tags?post=275"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}