title: Mail merge with attachment
body: <p>I have been struggling to do a mail merge on Word VBA, but I have managed to get that right. Now I would like to add a .xls file to every merged document, but can't seem to get it.</p>
  
  <p>My Code so far: </p>
  
  <pre><code>Sub SendMerge()
  
      Dim BLN As Boolean
      BLN = False
       Do While BLN = False
  
          ActiveDocument.Fields.Update
  
          With ActiveDocument.MailMerge
              .MailAddressFieldName = "EMail"
              .Destination = wdSendToEmail
              .SuppressBlankLines = True
          .MailSubject = "Samedi 26 Avril 2014"
          With .DataSource
              .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
              .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
          End With
          .Execute Pause:=False
      End With
  
      If ActiveDocument.MailMerge.DataSource.ActiveRecord = _
          ActiveDocument.MailMerge.DataSource.RecordCount Then
          bDone = True
      End If
      ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
  Loop
  End Sub
  </code></pre>