Why doesn't this code work. I only cna get one item from the distribution list

Set myNameSpace = OutApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
Set myContactList = myFolder.Folders(DistListName)
For Each contact In myContactList.Items

Email = contact.Email1DisplayName
Next contact

I'm trying to attach a distribution list to a new email message and can't
figure this out.