jeffgabhart

Sub InboxZero()
    Dim personalFolderName As String
    Dim archiveFolderName As String
    Dim outlookApp As Outlook.Application
    Dim archiveFolder As Outlook.Folder
    Dim Item As Outlook.MailItem
    Dim items As Outlook.Selection
    Dim categories As String
    
    personalFolderName = "Personal Folders"