while not RS.eof Set objNewMail = CreateObject("CDONTS.NewMail") objNewMail.Send rs("mail-id"), "sender@company.com", "Hello", _ "sending this in 3 statements!", 0 ' low importance Set objNewMail = Nothing rs.movenext loopit is one of the various ways to use CDONTS. you can explore MSDN to learn more about different properties and methods of CDONTS.