Hola:
Puedes hacer 2 cosas:
- Una es poner todos los nombres igual que pones uno solo, pero separados por ;
- Otra es hacer un bucle así:
Do While Not rs.EOF
'Crear y mandar siguiente correo
Loop
Para cualquiera de estas dos maneras sería importante que le pongas a la página más tiempo del estipulado por defecto para que no te falle:
Server.ScriptTimeout = 900 '15 minutos
Espero que todo esto te ayude. Un saludo.
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>