I had a quick look but couldn't see any code so I've written this. Please remember that Outlook is not my speciality, but this appears to work.

Basic code is:
[vba]
Set appOL = CreateObject("Outlook.Application")
Set E_Mail = appOL.CreateItem(olMailItem)
Set Needed = E_Mail.GetInspector

E_Mail.Recipients.Add User@Example.com
E_Mail.Subject = "Yet Another Test"
E_Mail.Attachments.Add "C:\Path\And\Name\To\Document.doc"
E_Mail.Send

Set Needed = Nothing
Set E_Mail = Nothing
Set appOL = Nothing
[/vba]

It's worth pointing out that you can only have one instance of Outlook and, if you already have Outlook running, the CreateObject will simply attach you to it.

In a quick test I found that I needed to create an Inspector to make it work if Outlook wasn't already running - hence the Set Needed line.

I don't know where you plan to get the e-mail addresses from, or when, so I'm not sure how to adapt it for you. If you can get it, or derive it, in the earlier code, this might work:
[vba]
Sub CreateDocAndEMail()
Dim myRange As Word.Range
Dim DocName As String

Dim appOL 'As Outlook.Application
Dim E_Mail 'As Outlook.MailItem
Dim Needed 'As Outlook.Inspector

Set appOL = CreateObject("Outlook.Application")

Letters = ActiveDocument.Sections.Count
For Counter = 1 To Letters
Set myRange = ActiveDocument.Paragraphs(1).Range
myRange.MoveEnd wdCharacter, -1
DocName = "D:\My Documents\Test\Merge\" & myRange.Text & ".doc"
myRange.Paragraphs(1).Range.Delete
ActiveDocument.Sections.First.Range.Cut
With Documents.Add
.Range.Paste
.SaveAs FileName:=DocName, FileFormat:=wdFormatDocument
.Close
End With

Set E_Mail = appOL.CreateItem(olMailItem)
Set Needed = E_Mail.GetInspector
E_Mail.Recipients.Add "User@Example.com"
E_Mail.Subject = "ILS Training Document"
E_Mail.Attachments.Add DocName
E_Mail.Send

Next
Set Needed = Nothing
Set E_Mail = Nothing
Set appOL = Nothing
End Sub
[/vba]