title: How to send email to multiple recipients with addresses stored in Excel?
body: <p>I am trying to set up several buttons on an Excel form to email different groups of people.<br />
  I made several ranges of cells on a separate worksheet to list the email addresses.</p>
  <p>For example, I want &quot;Button A&quot; to open Outlook and put the list of email addresses from &quot;Worksheet B: Cells D3-D6&quot;. Then all that has to be done is hit &quot;Send&quot; in Outlook.</p>
  <pre class="lang-vb prettyprint-override"><code>Sub Mail_workbook_Outlook_1() 
      'Working in 2000-2010
      'This example send the last saved version of the Activeworkbook
      Dim OutApp As Object 
      Dim OutMail As Object 
           
      EmailTo = Worksheets(&quot;Selections&quot;).Range(&quot;D3:D6&quot;) 
           
      Set OutApp = CreateObject(&quot;Outlook.Application&quot;) 
      Set OutMail = OutApp.CreateItem(0) 
           
      On Error Resume Next 
      With OutMail 
          .To = EmailTo 
          .CC = &quot;person1@email.com;person2@email.com&quot; 
          .BCC = &quot;&quot; 
          .Subject = &quot;RMA #&quot; &amp; Worksheets(&quot;RMA&quot;).Range(&quot;E1&quot;) 
          .Body = &quot;Attached to this email is RMA #&quot; &amp; Worksheets(&quot;RMA&quot;).Range(&quot;E1&quot;) &amp; &quot;. Please follow the instructions for your department included in this form.&quot; 
          .Attachments.Add ActiveWorkbook.FullName 
          'You can add other files also like this
          '.Attachments.Add (&quot;C:\test.txt&quot;)
               
          .Display 
      End With 
      On Error Goto 0 
           
      Set OutMail = Nothing 
      Set OutApp = Nothing 
  End Sub
  </code></pre>