With Category-Manager you can group your Outlook categories, share them with other users, filter a folder by category, automatically categorize new emails, and more. 'Enter here the category name that should trigger the action Private Sub Appointment_Propert圜hange(ByVal Name As String) If TypeOf obj Is Outlook.AppointmentItem Then Private WithEvents Appointment As Outlook.AppointmentItem It is possible to get hidden messages out of the data file and copy them to other mailboxes, but unless you have a lot to share, it is usually easier to recreate. Quick Steps can be used to forward messages to a person or group, flag items for follow-up, and more. Private WithEvents Explorer As Outlook.Explorer Quick Steps can do more than move messages. Change the category name in the Propert圜hange procedure to suit your needs.
#OUTLOOK QUICK STEPS MOVE MESSAGES IN THIS CONVERSATION CODE#
This code flags an appointment as private when you assign a certain category. Private WithEvents Explorer As Outlook.Explorer This one requires Outlook 2007 or higher. This sample runs all the rules you have set up as soon as you assign the category '(RunRules)' to an email. Again, the moving itself will be triggered by the timer. The second example moves the email to a subfolder of the inbox that matches the name of the category. Move to a Folder with the Name of the Category The basic ad talk function well as the task to your main tasks list in To-Do, but if you want, you can move it to another list from the To-Do app. If MoveToThisFolder Is Nothing Then Exit Sub With the advent of Microsoft To-Do, Outlook tasks are finally usable so I would advise one of your Quick Steps to be assigned to creating a task from the selected email. Set Subfolder = Inbox.Folders(SubfolderName) Set Inbox = Ns.GetDefaultFolder(olFolderInbox) Select the email account which you want to apply this rule in Account drop-down list in Account dialog box and then click the OK button 4). Set Ns = Application.GetNamespace("MAPI") Check the through the specified account box in Step 1 2). The retention period for calendars is 1 year after the end of the. Use Conversation View to view all messages in a conversation together, and use the Conversation Cleanup function to delete the duplicate text. 'Enter here the category name to look for Outlooks conversation tools can assist with a quick cleanup of duplicate messages. Private Sub Mail_Propert圜hange(ByVal Name As String) Set Explorer = Application.ActiveExplorer Private MoveToThisFolder As Outlook.MapiFolder