For aktzeile = zeile_wo_at To zeilennr
 
          mail = workbookobj.Application.activesheet.Cells(aktzeile, _
            spalte_wo_at)
 
          Set myRecipient = mynamespace.CreateRecipient(mail)
 
          myMailItem.Recipients.Add myRecipient
          myMailItem.Recipients.ResolveAll 'Versucht, alle Recipient-Objekte in 
          ' der Recipients-Auflistung im Adressbuch aufzulösen.
 
          neueliste.AddMembers myMailItem.Recipients
 
          DoEvents
 
 
      Next aktzeile