Mailen met excel macro naar GROEP contactpersonen uit outlook

[qgerard]

In Excel is mij gelukt met excel marco een rapportage te mailen.
Echter bepaalde rapportages moeten naar meerdere personen worden gemaild. (Groep contactpersonen)
Wanneer ik deze gebruik dan wordt alleebn de laatste persoon in die groep gemaild !!!!!

Hoe kan ik groepen contactpersonen mailen zodat ieder in die groep een mail ontvangt.

Hieronder de code die ik momenteel gebruik.

rng.Copy
With NewWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial Paste:=xlPasteValues
.Cells(1).PasteSpecial Paste:=xlPasteFormats
.Cells(1).Select
'If the unique value is a mail addres create a mail
If .Cells(2, 2).Value Like "?*@?*.?*" Then
EmTo = .Cells(2, 2).Value
End If
Application.CutCopyMode = False
End With

'Create a file name
TempFilePath = Environ$("temp") & "\"
TempFileName = "ExcesInfo" & Format(Now, "yyyy-mm-dd")
FileExtStr = ".xls": FileFormatNum = -4143

'Save, Mail, Close and Delete the file
Set OutMail = OutApp.CreateItem(0)
With NewWB
.SaveAs TempFilePath & TempFileName _
& FileExtStr, FileFormat:=FileFormatNum
On Error Resume Next
With OutMail
.to = EmTo
.CC = "verbeekgj@gmail.com"
.Subject = "Informatie Aanvoer en Excessen"
.Attachments.Add NewWB.FullName

enz,. ernz
enz

Wie weet mijn probleem op te lossen?