error con SMTPsvg.Mailer

[auroraceron]

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.

[allhen]

entra en aspmail.com

[auroraceron]

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

[Shiryu_Libra]

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

[auroraceron]

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

[Shiryu_Libra]

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???

[auroraceron]

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.