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.