Foros del Web » Programando para Internet » ASP Clásico »

error con SMTPsvg.Mailer

Estas en el tema de error con SMTPsvg.Mailer en el foro de ASP Clásico en Foros del Web. Hola a todos, necesito un poco de ayuda con un programa. El programa no es mio, el codigo ya lo habian hecho aunque hay partes ...
  #1 (permalink)  
Antiguo 28/02/2008, 11:40
 
Fecha de Ingreso: octubre-2007
Ubicación: en la oscuridad de la soledad
Mensajes: 13
Antigüedad: 16 años, 7 meses
Puntos: 0
Sonrisa error con SMTPsvg.Mailer

Hola a todos, necesito un poco de ayuda con un programa.

El programa no es mio, el codigo ya lo habian hecho aunque hay partes que no funcionan bien y una de ellas es el envio de email.
Para enviar el email utiliza SMTPsvg.Mailer, he estado leyendo y dice que este debe estar instalado en tu servidor (en este caso en mi maquina de modo local), pero no se donde se instala ni como instalarlo.

Si alguien me puede ayudar mil gracias.
  #2 (permalink)  
Antiguo 28/02/2008, 12:21
Avatar de allhen  
Fecha de Ingreso: septiembre-2005
Mensajes: 243
Antigüedad: 18 años, 8 meses
Puntos: 1
De acuerdo Re: error con SMTPsvg.Mailer

entra en aspmail.com
__________________
En esta vida todo es posible ... excepto vencer a la muerte .
  #3 (permalink)  
Antiguo 29/02/2008, 10:04
 
Fecha de Ingreso: octubre-2007
Ubicación: en la oscuridad de la soledad
Mensajes: 13
Antigüedad: 16 años, 7 meses
Puntos: 0
Re: error con SMTPsvg.Mailer

gracias Allhen gracias por responder, si ya he checado un poco esa pagina pero mi ingles no es muy bueno, de echo de ahi fue donde lo descarge y descargo un ejecutable que ya esta instalado en el sistema pero aun asi no logro envir emails ¿alguna sugerencias?

y de nuevo mil gracias
  #4 (permalink)  
Antiguo 02/03/2008, 02:26
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Re: error con SMTPsvg.Mailer

por que no intentas poniendo tu codigo y donde te marca error al intentar enviar al correo y vemos que podemos arreglar o tan siquiera orientarte un poco mas
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #5 (permalink)  
Antiguo 03/03/2008, 11:24
 
Fecha de Ingreso: octubre-2007
Ubicación: en la oscuridad de la soledad
Mensajes: 13
Antigüedad: 16 años, 7 meses
Puntos: 0
Re: error con SMTPsvg.Mailer

Bueno como ya habia mencionado el codigo no es mio, el codigo contiene las opciones para mandar de diferentes formas los correos, las deficiones de mensajes, host,direcciones de correo se encuentra en la una base de dato o han sido eclaradas mediante un formulario. Los formularios no los coloco or que son de diferentes partes, por ejemplo uno de configuracion donde estableces el host, una base donde estan registrados las direcciones de correos electronicos etc. el codigo es el siguiente


<%
sub emailer
on error resume next
set rsEmail=server.createobject("adodb.recordset")
rsEmail.open "select admin_mailserver,admin_supportemail,admin_smtpserv er,admin_smtpport,admin_mailusername,admin_mailpas sword from admin where admin_account_id=" & session("account_id"),session("conn")
emailhost=rsEmail(0)
emailuser=rsEmail(2)
emailpass=rsEmail(3)
if emailfrom="" or isNull(emailfrom) then emailfrom=rsEmail(1)
on error goto 0
Select Case session("emailclient")
case ("JMail")
Set Mail = Server.CreateObject("JMail.Message")
Mail.MailServerUserName = emailuser
Mail.MailServerPassword = emailpass
'Mail.ContentType = "text/HTML"
Mail.From = emailfrom
Mail.FromName = "Ultimate HelpDesk"
Mail.AddRecipient(emailto)
Mail.Subject = Subject
if strAttach1<>"" then
Mail.addattachment server.mappath("upload\"&strAttach1)
elseif strAttach2<>"" then
Mail.addattachment server.mappath("upload\"&strAttach2)
elseif strAttach3<>"" then
Mail.addattachment server.mappath("upload\"&strAttach3)
end if
Mail.HTMLBody = msgbody
Mail.Send(emailhost)
Mail.Close()

case ("ASPMail")
Set Mail = Server.CreateObject("SMTPsvg.Mailer")
Mail.FromAddress = emailfrom
Mail.RemoteHost = emailhost
Mail.AddRecipient "", emailto
Mail.Subject = Subject
Mail.BodyText = msgbody
Mail.ContentType = "text/html"
Mail.SendMail

case ("Persits")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = emailhost
response.Write(emailhost)
on error resume next
Mail.Username = emailuser
Mail.Password = emailpass
on error goto 0
Mail.From = emailfrom
Mail.AddAddress emailto
Mail.Subject = Subject
Mail.Body = msgbody
Mail.IsHTML = True
on error resume next
Mail.Queue = True
on error goto 0
Mail.Send

case ("CDONTS")
set mail = server.CreateObject("CDONTS.NewMail")
mail.From = emailfrom
mail.To = emailto
mail.Subject = Subject
mail.body = msgbody
Mail.MailFormat = 0
mail.BodyFormat = 0
mail.Send

case ("CDOSYS")
set Mail = createobject("CDO.Message")
if rsemail("admin_smtpserver")<>"" then
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="" & rsemail("admin_smtpserver") & ""
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = rsemail("admin_smtpport")
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
' If your server requires outgoing authentication uncomment the lines below and use a valid email address and password.
'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="[email protected]"
'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword"
Mail.Configuration.Fields.Update
'End remote SMTP server configuration section==
end if
if strAttach1<>"" then
Mail.addattachment server.mappath("upload\"&strAttach1)
elseif strAttach2<>"" then
Mail.addattachment server.mappath("upload\"&strAttach2)
elseif strAttach3<>"" then
Mail.addattachment server.mappath("upload\"&strAttach3)
end if
Mail.To= emailto
Mail.From= emailfrom
Mail.Subject= Subject
Mail.HTMLBody= msgbody
Mail.Send
End Select
Set Mail = Nothing
rsEmail.close
set rsEmail=Nothing
end sub

%>


el error esta en la linea 43 Set Mail = Server.CreateObject("Persits.MailSender")
y el mensaje de error es el siguiente
Tipo de error:
Objeto Server, ASP 0177 (0x800401F3)
Cadena clase no válida
/includes/emailers.asp, línea 43
  #6 (permalink)  
Antiguo 03/03/2008, 11:27
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Re: error con SMTPsvg.Mailer

el error es por que no tienes instalada esa libreria, deberas descargarla e intalarla para que funcione correctamente


ahora el problema radica en que.... puedes instalar esos programas???
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #7 (permalink)  
Antiguo 03/03/2008, 11:35
 
Fecha de Ingreso: octubre-2007
Ubicación: en la oscuridad de la soledad
Mensajes: 13
Antigüedad: 16 años, 7 meses
Puntos: 0
Re: error con SMTPsvg.Mailer

Hola Shiryu_Libra, bueno el servidor es mi maquina local, y la libreria de aspemail esta instalada, no se si deba de configurar las demas opciones CDONTS o CDOSYS.

gracias por contestar.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:04.