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