title: How to loop sending emails
body: <p>I have a folder <code>test</code> that contains the following files <code>user1.xlsx , user2.xlsx , user3.xlsx</code> 
  In my working spreadsheet <code>work.xlsx</code> i have corresponding addresses</p>
  
  <pre><code>user1.xlsx  user1name@gmail.com
  user2.xlsx  user2name@yahoo.com
   ...
  </code></pre>
  
  <p>How can I send emails with the attached user1 , user2  .xlsx files to corresponding emails</p>
  
  <pre><code>'Email
  Dim OutApp As Object
      Dim OutMail As Object
      Set OutApp = CreateObject("Outlook.Application")
      Set OutMail = OutApp.CreateItem(0)
      On Error Resume Next
      With OutMail
          .To = userVar
          .SentOnBehalfOfName = "xxxx"
          .CC = ""
          .BCC = ""
          .Subject = "...
          .Body = "...
          .Attachments. .. ??
          .Send
      End With
      On Error GoTo 0
      Set OutMail = Nothing
      Set OutApp = Nothing
  
  
  'Close
  </code></pre>