bueno nadie respondió pero encontré la solución, quedo así
sql = "select email from tbl_ejecutivos"
set rs = CreateObject("ADODB.Recordset")
rs.Open Sql, Conn2
do while not rs.eof
CorreoAdministradores = CorreoAdministradores & "," & rs("email")
rs.movenext
loop
CorreoAdministradores = mid(CorreoAdministradores,2,len(CorreoAdministrado res))
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Nuevo Ingreso de datos"
myMail.From="
[email protected]"
myMail.To=CorreoAdministradores
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="xxx.xx.xxx.xxx"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
Cuerpo = "<HTML>"
Cuerpo = Cuerpo & "<HEAD>"
Cuerpo = Cuerpo & "<LINK href='http://www.xxx.com/style.css' type=text/css rel=stylesheet>"
Cuerpo = Cuerpo & "</HEAD>"
Cuerpo = Cuerpo & "<BODY leftMargin=0>"
Cuerpo = Cuerpo & "<table width='100%' border='0'>"
Cuerpo = Cuerpo & "<tr>"
Cuerpo = Cuerpo & "<td align='center'><img src='http://www.xxx.com/titulo.gif' width='580' height='90'></td>"
Cuerpo = Cuerpo & "</tr>"
Cuerpo = Cuerpo & "<tr>"
Cuerpo = Cuerpo & "<td align='center' class='texto'><p> </p>"
Cuerpo = Cuerpo & "<p>Estimado Administrador, el user "&usuario&" a enviado a validacion sus datos Numero "&datos&" </p>"
Cuerpo = Cuerpo & "<p> </p>"
Cuerpo = Cuerpo & "<p>Atte.<br>"
Cuerpo = Cuerpo & "<a href='http://www.xxx.com/></a></p>"
Cuerpo = Cuerpo & "</td>"
Cuerpo = Cuerpo & "</tr>"
Cuerpo = Cuerpo & "<tr></tr>"
Cuerpo = Cuerpo & "</table>"
Cuerpo = Cuerpo & "</BODY>"
Cuerpo = Cuerpo & "</HTML>"
myMail.HTMLBody = Cuerpo
myMail.Send
set myMail=nothing
la idea de lo anterior es ir a buscar a una tabla de sql los correos de los administradores y enviarles un correo con formato html con los logos de la empresa avisando que un usuario modifico los datos. en esta pagina me iluminó
http://www.w3schools.com/asp/asp_send_email.asp
