Muchas Gracias!!!
Ayer pude conseguir hacerlo, en realidad el primer paso, ya que soy nuevo, era poder hacerlo de manera manual, lo que hice fue esto:
Código:
If Len(Archivo) > 100 Then
NombreDe = "Información Empresa"
CorreoDe = "[email protected]"
CorreoPara = Split(Request.Form("email"),";")
Asunto = "Empresa - Información " & UCase(NomPromocion) & " "
CorreoEnviado = bucle()'EnviarEmailHtml("yolix.tuole.es", NombreDe, CorreoDe, CorreoPara, Asunto, Archivo, 3)
function bucle()
For i = 0 to ubound(CorreoPara)
Mail = CorreoPara(i)
envio = EnviarEmailHtml("yolix.tuole.es", NombreDe, CorreoDe, Mail, Asunto, Archivo, 3)
Response.Write "<li>" & Mail
next
End Function
'Call EnviarEmailHtml("yolix.tuole.es", NombreDe, "[email protected]", "[email protected]", CorreoEnviado & "-" & Asunto, Archivo, 5)
'Response.Write Asunto & "<br>" & Archivo
End If%>
Con eso quedó.
Ahora estoy trabajando con el que desde otro doc ASP se muestren los registros, correos, a partir de x fexha, con una casilla de verificación poder seleccionarlos, sobre todo por que luego vienen correos que aunque tenga formato correcto es evidente que no son reales, necesito un reporte real de correos enviados, una vez hecho esto, ahora si enviar los correos a los destinatarios. PENSÉ QUE ASP ERA MÁS DIFICIL