Varios envíos con jmail

[gagarin]

Hola:
Estoy intentando hacer varios envíos de un mismo correo utilizando jmailHTML he logrado que el archivo HTML sea enviado correctamente y todo, el punto es que ahora quiero que el mismo correo pueda ser enviado a varios recipientes, ésto es desde un formulario de html, el punto es que sé que debo ponerlos todos separados por algún signo, despues hacer el split y despues un ciclo que vaya enviando los correos, el punto es que no sé muy bien en donde va cada cosa, si el split va dentro del ciclo o que, y como enviar en cada ciclo el correo a la función EnviarEmail.

Espero haber sido claro, esto es lo que uso:

Código:

<%Function EnviarEmailHtml(ByVal Servidor_de_Correo, ByVal Nombre_De, ByVal Correo_De, ByVal Correo_Para, ByVal Asunto, ByVal Mensaje, ByVal Prioridad)
   Set JmailHtml = CreateObject("JMail.SMTPMail")
     JmailHtml.ServerAddress = Servidor_de_Correo
     JmailHtml.SenderName = Nombre_De
     JmailHtml.Sender = Correo_De
     JmailHtml.AddRecipient Correo_Para
     JmailHtml.Subject = Asunto
     JmailHtml.Priority = Prioridad
     JmailHtml.Charset = "iso-8859-1"
     JmailHtml.ContentType = "text/html"
     JmailHtml.HTMLBody = Mensaje
     On Error Resume Next
     JmailHtml.Execute
     If Err.number = 0 Then
      EnviarEmailHtml = 1
     Else
      EnviarEmailHtml = 0
      Err.Clear
     End If 
   Set JmailHtml = Nothing
  End Function%>

Hasta aquí claro, pero luego uso esto:

Código:

%Promocion = Trim(Request("promocion"))
   If Len(Promocion) > 3 Then
    MatPromocion = Split(Promocion,"@")
    CodPromocion = MatPromocion(0)
    NomPromocion = MatPromocion(1)
   End If
   If Ip = "213.37.49.233" Then
    Response.Write Promocion
    Response.End
   End If
   If CodPromocion <> "" Then
    CodPromocion = Replace(LCase(CodPromocion),"-","")
    CodPromocion = Replace(LCase(CodPromocion)," ","")
    'Response.Write CodPromocion
    'Response.End
    Archivo = LeerArchivo("E:\wwwroot\Empresa\mailing\" & CodPromocion & "\" & CodPromocion & ".htm")
   Else
    Archivo = ""
    CorreoEnviado = 0
   End If
   If Len(Archivo) > 100 Then
    NombreDe = "Información Empresa"
    CorreoDe = "[email protected]"
    CorreoPara = Trim(Request.Form("email"))
    Asunto = "EMPRESA - Información " & UCase(NomPromocion) & " "
    CorreoEnviado = EnviarEmailHtml("yolix.tuloe.es", NombreDe, CorreoDe, CorreoPara, Asunto, Archivo, 3)
    'Call EnviarEmailHtml("yolix.tuloe.es", NombreDe, "[email protected]", "[email protected]", CorreoEnviado & "-" & Asunto, Archivo, 5)
    'Response.Write Asunto & "<br>" & Archivo
   End If%><%Nombre = Trim(request.form("nombre"))
  Direccion = Trim(request.form("direccion"))
  Localidad = Trim(request.form("localidad"))
  Provincia = Trim(request.form("provincia"))
  CodigoP = Trim(request.form("cp"))
  Pais = Trim(request.form("pais"))
  Telefono = Trim(request.form("tel"))
  Email = Trim(request.form("email"))
  
  Producto = Trim(request.form("Producto"))
  If Len(Producto) > 3 Then
   MatProducto = Split(Producto,"@")
   Codproducto = MatProducto(0)
   Producto = MatProducto(1)
  End If
  Observaciones = Trim(request.form("observaciones"))

Hice el split con los productos, pero eso es solo para buscar la ruta en donde se encuentra mi archivo, lo que no sé es cómo hacer lo del correo.

por fa una ayuda.

[JuanRAPerez]

de donde tomas los correos de una base de datos??

si es asi la idea va en este camino

<%
Function EnviarEmailHtml(ByVal Servidor_de_Correo, ByVal Nombre_De, ByVal Correo_De, ByVal Correo_Para, ByVal Asunto, ByVal Mensaje, ByVal Prioridad)
...
End Function

'sql = "selec * from tu table "
'creas tu rs
'while mientras rs no sea fin de archivo
Correo_Para = rs("campo_donde_guardas_correo")

'ejecutas tu funcion reemplazando los campos correctos
Function EnviarEmailHtml("1.1.1.1", "de vos","[email protected]", Correo_Para, "asunto del correo", Mensaje, 1)

'te muieves al siguiente registro
rs.movenext
%>

suerte

[gagarin]

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