Envio de mails

[sharasic]

Amigos como les va, bueno les cuento tengo un problemita y no se a quien recurrir :

Tengo un sistema de reclamos, que cuando detecta que se carga el reclamo critico dispara un mail a x direcciones,...
bueno aca el tema es que no me tira ningun error el codigo, pero el mail nunca llega.....
El tema es que lo programo otra persona y yo tengo que ver el porque no funciona...puede que le falte algo ??

por favor fijense que puede ser que este mal en esto..
OJO!! hay cosas comentariadas...
Muchas gracias.




sub miMail( xcontacto, xtexto )
'dim xmail
'sub miMail( xcontacto )
Set oRs = Nothing
Set oCmd = Nothing
Dim oArmaEMail, sFecha
sFecha= date


Set oArmaEMail = CreateObject("ArmarEmails.ClsMail")

With oArmaEMail
.AgregarPropiedad "producto","T",Server.HtmlEncode(Request("producto descrip"))
.AgregarPropiedad "fecha","T",Server.HtmlEncode(sFecha)
.AgregarPropiedad "comentario","T",Server.HtmlEncode(Request("coment ario"))
.AgregarPropiedad "retirar","T",Server.HtmlEncode(Request("retirar") )
.AgregarPropiedad "retirardesde","T",Server.HtmlEncode(Request("reti rardesde"))
.AgregarPropiedad "retirarhasta","T",Server.HtmlEncode(Request("reti rarhasta"))
.AgregarPropiedad "area1","T",Server.HtmlEncode(Request("area1") )
sTextoMail = .CrearEmail(Server.MapPath("Plantilla/Email.Html"))


response.Write(Crearmail)
response.End


End With

Set oArmaEMail = Nothing

MandarMail cstr(xcontacto), sTextoMail
end sub

sub MandarMail( xcontacto, xtexto )
dim xmail
Set Consu1 = CreateObject("ADODB.Recordset")
Consu1.ActiveConnection = session("StrConn")

response.Write(miMail)
response.End

sql = " Select distinct * From "
sql = sql & " ("
sql = sql & " Select MU.Mail_Direc mail, MU.Usua_Nombre nombre From Productos P, desti_usua DU, mail_usua MU "
sql = sql & " Where Marca = " & Request("marca")
sql = sql & " And Grupo = " & Request("grupo")
sql = sql & " And varie = " & Request("variedad")
sql = sql & " And sabor = " & Request("sabor")
sql = sql & " And P.Esta = 'A' "
sql = sql & " And Du.Esta = 'A' "
sql = sql & " And P.Desti = DU.Desti "
sql = sql & " And DU.USUA = MU.CODI"
sql = sql & " And MU.Esta = 'A'"
sql = sql & " And Du.usua_tipo = 'R'"
sql = sql & " union all "
sql = sql & " Select mail, nombre From Criticos_mail"
' sql = sql & " [email protected], Santiago from Criticos_mail"
sql = sql & " ) t1"


' response.Write(mandarmail)
'response.End


' sql = "select mail, nombre "
' sql = sql & " from criticos_mail




' Set Consu1 = CreateObject("ADODB.Recordset")
' Consu1.ActiveConnection = session("StrConn")
' sql = "select mail, nombre "
' sql = sql & " from criticos_mail "
Consu1.Open sql

if consu1.eof = true then
consu1.close
exit sub
end if

Set xmail = Server.CreateObject("Persits.MailSender")

xmail.Host = "10.10.45.177" 'Session("sMailServer")
xmail.From = "[email protected]"
'xmail.IsHTML = True

consu1.movefirst
do while not consu1.eof
xmail.AddAddress consu1.fields("mail")
consu1.movenext
loop

xmail.Subject = "CAC - Estado del caso: CRITICO. Contacto:" & cstr(xcontacto)
xmail.body = xtexto
xmail.send

set xmail = nothing
consu1.close
set xmail = nothing

end sub
%>

[tammander]

¿Y el error es? Quiero decir, ¿Qué mensaje de error te muestra?


Un saludo

[sharasic]

No, no me muestra ningun error, eso es lo peor....
sigue adelante normalmente y lo peor es que no tiene ningun
"on error resume next"...
Que podra ser....??

[tammander]

Aparentemente parece todo bien. ¿Este es todo el código? ¿Desde donde se dispara el procedimiento miMail?

¿Para que sirven estas lineas en miMail?

-->Set oRs = Nothing
-->Set oCmd = Nothing

¿Donde esta la conexion con la base de datos?

NOTA: Chequea tambien la DLL de ArmarEmails.ClsMail



Un saludo

[CésarBalaguer]

puedes mandar que te arroja el response.write luego de concatenar tu sql?