vba didnt save all email into specific folder

Anyone could help me to have a look on this coding as i run it didnt save all the email and will prompt out error 51 or application close

Sub Workbook_Open()
  Dim oMail As Outlook.MailItem
  
    Dim OutApp As Outlook.Application
    Set OutApp = CreateObject("Outlook.Application")
  Dim objItem As Object
  Dim sPath As String
  Dim dtDate As Date
  Dim sName As String
  Dim enviro As String
  Dim TrimString As String
   enviro = CStr(Environ("USERPROFILE"))
   'For Each objItem In ActiveExplorer.Selection

    Set OutMail = OutApp.CreateItem(0)
    Set myNameSpace = OutApp.GetNamespace("MAPI")
    Set myfolders = myNameSpace.Folders
    n = 1
    Do Until myfolders.Item(n) = "Cargoflow GENERAL"
        n = n + 1
    Loop
    Set myfolder = myfolders.Item(n)
    'Level 1 Folder
    Set myfolder2 = myfolder.Folders("Inbox")
    'Level 2 Folder
    
   
   For Each Item In myfolder2.Items
        'Set oMail = objItem
        'Items = Items.Restrict("[Unread] = true")
        

        dtDate = Item.ReceivedTime
        itst = Item.SentOn
        Date_Test = Now()
        If itst <= Date_Test Then
             sName = Item.Subject
             ReplaceCharsForFileName sName, ""
            'sName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
            'vbUseSystem) & Format(dtDate, "-hhnnss", _
            'vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".msg"
            
            TrimString = LTrim(sName)
            sName = TrimString
            
            sPath = "D:\DailyEmail\"
            Debug.Print sPath & sName

            Item.SaveAs sPath & sName & ".msg", olMSG
        End If
 
    Next




    
    
End Sub

Private Sub ReplaceCharsForFileName(sName As String, _
  sChr As String _
)
  sName = Replace(sName, "Chr(34)", sChr)
  sName = Replace(sName, "!", sChr)
  sName = Replace(sName, "@", sChr)
  sName = Replace(sName, "#", sChr)
  sName = Replace(sName, "$", sChr)
  sName = Replace(sName, "%", sChr)
  sName = Replace(sName, "^", sChr)
  sName = Replace(sName, "&", sChr)
  sName = Replace(sName, "*", sChr)
  sName = Replace(sName, "(", sChr)
  sName = Replace(sName, ")", sChr)
  sName = Replace(sName, "=", sChr)
  sName = Replace(sName, "+", sChr)
  sName = Replace(sName, "|", sChr)
  sName = Replace(sName, "[", sChr)
  sName = Replace(sName, "]", sChr)
  sName = Replace(sName, "{", sChr)
  sName = Replace(sName, "}", sChr)
  sName = Replace(sName, "`", sChr)
  sName = Replace(sName, "'", sChr)
  sName = Replace(sName, ";", sChr)
  sName = Replace(sName, ":", sChr)
  sName = Replace(sName, ">", sChr)
  sName = Replace(sName, "<", sChr)
  sName = Replace(sName, "?", sChr)
  sName = Replace(sName, "/", sChr)
End Sub