Outlook Macro Question

'Change the path on the next line as needed
Const ROOT_FOLDER = "C:\Temp\Outlook Mailbox\"
Dim objFile As Object, _
    objFSO As Object
 
Option Explicit
Private Sub CopyFolderStructure()
    Dim myNameSpace As Outlook.NameSpace
    Dim RootFolder As Outlook.MAPIFolder
    
    Set myNameSpace = Application.GetNamespace("MAPI")
    
    If myNameSpace Is Nothing Then
        MsgBox "Cannot get Session"
        Exit Sub
    Else
        For Each RootFolder In myNameSpace.Folders
            'ProcessFolder RootFolder, "C:\temp"
            ProcessFolder RootFolder, "C:\temp"
        Next RootFolder
    End If
    MsgBox "Done"
End Sub
 
Private Sub ProcessFolder(ParentFolder As Outlook.MAPIFolder, strFileFolder As String)
    Debug.Print "Processing: " & ParentFolder.Name & ", " & strFileFolder
    Dim SubFolder As Outlook.MAPIFolder
    
    
   ' Dim Itm As MailItem
    
    Dim Itm As Object
    
    
    'create file folder if necessary
    If Dir$(strFileFolder, vbDirectory) = "" Then
        MkDir strFileFolder 'need to ensure that this is a legal folder name
    End If
    'Save mail items
    For Each Itm In ParentFolder.Items
        If Itm.Class = olMail Then
            'need to ensure that this is a legal file name and is unique
            Itm.SaveAs strFileFolder & "\" & Itm.Subject & ".txt", olTXT 'save as text
          '  Itm.SaveAs "C:\deleted itmes\Will You Support ALIPAC's Operations in IOWA?" & ".txt", olTXT 'save as text
        End If
    Next Itm
    For Each SubFolder In ParentFolder.Folders
       If SubFolder.DefaultItemType = Outlook.olMailItem Then
            ProcessFolder SubFolder, strFileFolder & "\" & SubFolder.Name
        End If
    Next
End Sub
 
 
Sub CopyDirs()
    Call CopyFolderStructure
End Sub