Éste es el código, tengo primero la función EnviarEmailHtml():
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%>
Y despues recojo los datos de un formulario y los uso de esta forma:
Código:
En el código anterior si yo uso la función EnviarEmailHTML() envía los correos sin problema, ahora lo que yo quiero es que se ejecute la función bucle(), según yo lo que hace esta función es recoger la cadena de correos, separarlos y guardarlos en correo para, despues convierto CorreoPara en Mail y lo intento usar en la función EnviarEmailHTML(), el punto es que no lo hace me da un error de página no encontrada, si comento esta función('EnviarEmailHtml()) no me da error y se imprimen en pantalla los response con los datos, pero solo eso, no sé qué estoy haciendo mal.<%Item = Trim(Request("item"))
If Len(Item) > 3 Then
MatItem = Split(Item,"@")
CodItem = MatItem(0)
NomItem = MatItem(1)
End If
If Ip = "214.37.49.233" Then
' Response.Write Item
'Response.End
End If
If CodItem <> "" Then
CodItem= Replace(LCase(CodItem),"-","")
CodItem = Replace(LCase(CodItem)," ","")
'Response.Write CodItem
'Response.End
Archivo = LeerArchivo("E:\wwwroot\Empresa\mailing\" & CodItem & "\" & CodItem & ".htm")
Else
Archivo = ""
CorreoEnviado = 0
End If
If Len(Archivo) > 100 Then
NombreDe = "Información Empres"
CorreoDe = "[email protected]"
CorreoPara = Split(Request.Form("email"),";")
Asunto = "Empresa - Información " & UCase(NomItem) & " "
CorreoEnviado = bucle()
function bucle()
For i = 0 to ubound(CorreoPara)
Mail = CorreoPara(i)
Response.Write "estos son los correos" & Mail
Response.Write "<br />"
EnviarEmailHtml("eolix.eol.es", NombreDe, CorreoDe, Mail, Asunto, Archivo, 3)
next
End Function
End If%>
Alguna idea
