title: Adding multiple attachments to a single email using outlook VBA
body: <p>EDIT</p>
  
  <pre><code>Sub CreateEmail(Subject As String, Body As String, ToSend As String, CCs As String, FilePathtoAdd As String)
  
   Dim OlApp As Object
   Dim OlMail As MailItem
   Dim ToRecipient As Variant
   Dim CcRecipient As Variant
   Dim Attachments() As String
   Dim i As Integer
  
  
   Set OlApp = Application
   Set OlMail = OlApp.CreateItem(olMailItem)
  
  
   OlMail.Recipients.Add ToSend
  
   OlMail.Subject = Subject
   OlMail.Body = Body
   OlMail.SentOnBehalfOfName = "mailbox"
  
  
  
   If FilePath1 &lt;&gt; "" Then
  
  If FilePathtoAdd &lt;&gt; "" Then
      Attachments = Split(FilePathtoAdd, ",")
      For i = LBound(Attachments) To UBound(Attachments)
          If Attachments(i) &lt;&gt; "" Then
              OMail.Attachments.Add Trim(Attachments(i))
          End If
      Next i
  End If
  
  
  End If
  
   OlMail.Display 'change this to OlMail.Send if you just want to send it without previewing it
  
   End Sub
  Sub EmailIt()
  CreateEmail "This is Subject", "Body", "To", "CC", "C:\Users\b\Desktop\NFM\Export\0418 LSN " &amp; Format(Date, "mm-dd-yy") &amp; ".xls", "C:\Users\b\Desktop\NFM\Export\0418 Backorder " &amp; Format(Date, "mm-dd-yy") &amp; ".xls"
  
  End Sub
  </code></pre>
  
  <p>I'm using the code below, in outlook vba, to create an email, attach a file, and send the email. It works fine, except I can't figure out how to add multiple attachments to a single email? Any help is greatly appreciated.</p>
  
  <pre><code>Sub CreateEmail(Subject As String, Body As String, ToSend As String, CCs As String, FilePathtoAdd As String)
  
   'write the default Outlook contact name list to the active worksheet
  
   Dim OlApp As Object
   Dim OlMail As MailItem
   Dim ToRecipient As Variant
   Dim CcRecipient As Variant
  
  'Set OlApp = CreateObject("Outlook.Application")
   'Set OlMail = OlApp.CreateItem(olMailItem)
  
   Set OlApp = Application
   Set OlMail = OlApp.CreateItem(olMailItem)
  
   'For Each ToRecipient In Array("mba.szabist@gmail.com", "mba.szabist@gmail.com", "mba.szabist@gmail.com")
   'OlMail.Recipients.Add ToRecipient
   OlMail.Recipients.Add ToSend
   'Next ToRecipient
  
  
  'fill in Subject field
   OlMail.Subject = Subject
   OlMail.Body = Body
   OlMail.SentOnBehalfOfName = "email.com"
  
  
   'Add the active workbook as an attachment
  ' OlMail.Attachments.Add "C:\Users\Ali\Desktop\Sentence Correction\Comparisons.pdf"
   If FilePathtoAdd &lt;&gt; "" Then
      OlMail.Attachments.Add FilePathtoAdd
  End If
   'Display the message
   OlMail.Display 'change this to OlMail.Send if you just want to send it without previewing it
  
   End Sub
  Sub EmailIt()
  CreateEmail "This is Subject", "Body", "email.com", " ", "C:\Users\b\Desktop\NFM\Export\0418 LSN " &amp; Format(Date, "mm-dd-yy") &amp; ".xls"
  
  
  End Sub
  </code></pre>