Claro que se puede !!
Espero que no lo utilices con la finalidad que me imagino
Dim oMail
Set oMail = Server.CreateObject("CDONTS.NewMail")
oMail.From = "
[email protected]"
oMail.Subject = "Asunto"
oMail.Body = "Cuerpo del mensaje"
...
Do While Not oRs.EOF
oMail.To = oRs.Fields("Email")
oMail.Send
oRs.MoveNext
Loop
Set oMail = Nothing
...
Espero te haya servido de algo!
Nos vemos