Email über VBA versenden und in bestimmten Postfach und Ordner abspeichern

Dim Files As VBA.Collection
  Dim file As Scripting.file
  Dim mail As Outlook.MailItem
  Dim Atts As Outlook.Attachments
  
  
  
  m_To = Me.E_Mail
  
  Set Files = GetFiles
  If Files.Count Then
  
  Dim objOutlook As Outlook.Application
  Dim objMail As Outlook.MailItem
     Set objOutlook = New Outlook.Application
     Set objMail = objOutlook.CreateItem(olMailItem)
          
         With objMail
         .To = m_To
         .SentOnBehalfOfName = """Testabsender""<testabsender@handel.net>"  
         .Subject = "UMB Unterlagen zur Beantragung einer UMB .."  
         For Each file In Files
         .Attachments.Add file.Path
         Next
         .Body = "Sehr geehrte Damen und Herren," ....  
         .Display
..