I adopt the inbox zero approach, which means that I want to keep my inbox as close to empty as possible.
To achieve this, I need to archive emails quickly. The best method I found was to write a script that, when I right-click on an email, the script creates a new folder based on the email subject and then move this message to this folder.
This worked perfectly on Microsoft Outlook on Windows.
Now I switched jobs and I am using a Mac. Does anyone know how to achieve a similar result using Mail?
Thank you very much in advance.
For your reference, here is the script I used on Windows:
Sub folderCreation() Dim o_App As Object Dim obj_NameSpace As NameSpace Dim obj_folder As Folder Dim obj_NewFolder As Folder Dim obj_mail As MailItem Dim s_Subject As String Dim s_Date As Date Set o_App = Application If Application.ActiveExplorer.Selection.Count = 0 Then MsgBox "No item was selected!" Exit Sub End If Set obj_NameSpace = o_App.GetNamespace("MAPI") Set obj_folder = obj_NameSpace.PickFolder If obj_folder Is Nothing Then MsgBox "You did not make a selection" Exit Sub End If For Each obj_mail In Application.ActiveExplorer.Selection s_Subject = obj_mail.Subject s_Date = obj_mail.ReceivedTime Set obj_NewFolder = obj_folder.Folders.Add(Format(s_Date, "yyyy.mm.dd / ") & s_Subject) obj_mail.Move obj_NewFolder Next obj_mail End Sub