title: sending email to multiple recipients vba
body: <p>I am trying to send one mail to multiple receipients but I am able to send it to only the last person. Please help me to solve the problem.</p>
  
  <p>Here is the program I have:</p>
  
  <pre><code>Sub Mail_Sending_WholWorkbook_Attachment()
  '
  ' Mail_Sending_WholWorkbook_Attachment Macro
  ' This Macro is used to send the Bidresponse of the day as an attachment to the whole team with cc to santosh
  '
  ' Keyboard Shortcut: Ctrl+Shift+B
  '
  'Working in Excel 2000-2016
  'This example send the last saved version of the Activeworkbook
  'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
      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 = "nagarjun.balarama@accenture.com"
          .to = "nagarjun.b@bp.com"
          .to = "nagarjungupta@yahoo.com"
          .to = "nagarjunguptab@gmail.com"
          .CC = ""
          .BCC = ""
          .Subject = "BID RESPONSE"
          .Body = "THIS IS AN AUTOMATIC MAIL SENT THROUGH MACROS." &amp; vbNewLine &amp; "   " &amp; vbNewLine &amp; "Hi Team," &amp; vbNewLine &amp; "   " &amp; vbNewLine &amp; "Attached is the bid response for the day." &amp; vbNewLine &amp; "   " &amp; vbNewLine &amp; "Thanks &amp; Regards," &amp; vbNewLine &amp; "Nagarjun B"
          .Attachments.Add ActiveWorkbook.FullName
          'You can add other files also like this
          '.Attachments.Add ("C:\test.txt")
          .Send   'or use .Display
      End With
      On Error GoTo 0
  
      Set OutMail = Nothing
      Set OutApp = Nothing
  End Sub
  </code></pre>