Hello fellow Brightonian!

I use this at my work below. Some parts may need amending to your needs. This isn't possible without Excel open unless you have a personalworkook thats coded to autostart with huge amounts of arrays holding data. Anyhow, outlook VBA may be easier to work with for that if its vital. 

Sub SetRecipients()
Dim aOutlook As Object
Dim aEmail As Object
Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String

Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)
Set rngeAddresses = ActiveSheet.Range("B3:B13")

For Each rngeCell In rngeAddresses.Cells
strRecipients = strRecipients & ";" & rngeCell.Value
Next

aEmail.Importance = 2 ' eg
aEmail.Subject = "(TestMail)"
aEmail.Body = "(TestSubject)"
aEmail.ATTACHMENTS.Add 'try document path
aEmail.To = strRecipients

aEmail.Send

End Sub