title: Send Mail with email address in 4 columns
body: <p>I send email with Ron de Bruin's script where it has option for sending of email address from column B value.</p>
  
  <p>I have at least 4 columns of email address from column B to E. How can I modify this to send this e-mail?</p>
  
  <p>Example:</p>
  
  <p>Make a list in Sheets("Sheet1") with :</p>
  
  <ul>
  <li>In column A : Names of the people</li>
  <li>In column B : E-mail addresses</li>
  <li>In column C:Z : Filenames like this: <code>C:\Data\Book2.xls</code> (doesn't have to be Excel files)</li>
  </ul>
  
  <p>The macro will loop through each row in <code>Sheet1</code> and if there is an e-mail address in column B and file name(s) in column C:Z it will create a mail with this information and send it.</p>
  
  <pre><code>Sub Send_Files()
  'Working in Excel 2000-2013
  'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
  
  Dim OutApp As Object
  Dim OutMail As Object
  Dim sh As Worksheet
  Dim cell As Range
  Dim FileCell As Range
  Dim rng As Range
  
  With Application
  .EnableEvents = False
  .ScreenUpdating = False
  End With
  
  Set sh = Sheets("Sheet1")
  
  Set OutApp = CreateObject("Outlook.Application")
  
  For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants)
  
  'Enter the path/file names in the C:Z column in each row
  Set rng = sh.Cells(cell.Row, 1).Range("C1:Z1")
  
  If cell.Value Like "?*@?*.?*" And _
  Application.WorksheetFunction.CountA(rng) &gt; 0 Then
  Set OutMail = OutApp.CreateItem(0)
  
      With OutMail
          .to = cell.Value
          .Subject = "Testfile"
          .Body = "Hi " &amp; cell.Offset(0, -1).Value
  
          For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
              If Trim(FileCell) &lt;&gt; "" Then
                  If Dir(FileCell.Value) &lt;&gt; "" Then
                      .Attachments.Add FileCell.Value
                  End If
              End If
          Next FileCell
  
          .Send  'Or use .Display
      End With
  
      Set OutMail = Nothing
  End If
  Next cell
  
  Set OutApp = Nothing
  With Application
  .EnableEvents = True
  .ScreenUpdating = True
  End With
  End Sub
  </code></pre>