title: How to send mail to multiple recipients in outlook in vba
body: <p>The below code works fine for one recipient. How do I send the same mail to multiple recipients.</p>
  
  <p>How to send the attachments and how to send mail to multiple recipients in CC.
          All the to recipients are placed in column A of xlSht.</p>
  
  <pre><code>  All the CC recipients are placed in column B of xlSht.
  
  Sub Sendmail()
                           Dim olItem As Outlook.MailItem
                          Dim xlApp As Excel.Application
                          Dim xlBook As Excel.Workbook
                          Dim xlSht As Excel.Worksheet
                          Dim sPath As String
                          sPath = "sss" \\workbook placed locally
  
                          Set xlApp = CreateObject("Excel.Application")
  
                          Set xlBook = xlApp.Workbooks.Open(sPath)
  
                          Set xlSht = xlBook.Sheets("Sheet1")
  
                      '   // Create e-mail Item
                          Set olItem = Application.CreateItem(olMailItem)
  
                          With olItem
  
                          .To = xlSht.Range("A1")  
  
                              .CC = xlSht.Range("B1")
  
                              .subject = "test"
                              .Display
                             .Send
  </code></pre>