Problema con aspemail

javihb · #1 (**permalink**) 03/10/2006, 09:17

Hola amigos vereis tengo un problema enviando un email, el error que da es este

Código HTML:

Persits.MailSender.4 error '800a0006' 
451 Temporary local problem - please try later

bien, mediante un script he comprobado que aspemail lo tengo activo y la forma de enviar el email es la siguiente

Código:

Servidor = "mail.miservidor.es"
Asunto =  "Curso comprado"
'body of email
 mailbody =  "<HTML>"
  mailbody = mailbody & "<HEAD>"
  mailbody = mailbody & "<meta http-equiv=""Content-Type"""
  mailbody = mailbody & "content=""text/html; charset=iso-8859-1"">"
  mailbody = mailbody & "<TITLE>Pedido</TITLE>"
  mailbody = mailbody & "</HEAD>"
  mailbody = mailbody & "<BODY  bgcolor=""#09FB53"">"
  mailbody = mailbody & "<font size=2 face=verdana>"& "<strong>Número de pedido:</strong> " & intOrderID & "<br />" 
  mailbody = mailbody & "<font size=2 face=verdana>"& "<strong>Curso:</strong> " & arti & "<br />"
  mailbody = mailbody & "<font size =2 face = Verdana>" & "<strong>Nombre:</strong> " & strFirst & "<br>" & "<strong>Apellidos:</strong> " & strLast  & "</font>" & "<br />"       
  mailbody = mailbody & "<font size =2 face = Verdana>" & "<strong>Email:</strong> " & strEmail & "<br>" & "<strong>Dirección:</strong> " & strAddress1  & "</font>" & "<br />"
  mailbody = mailbody & "<font size =2 face = Verdana>" & "<strong>Ciudad:</strong> " & strCity & "<br>" & "<strong>Provincia:</strong> " & strState  & "</font>" & "<br />"
  mailbody = mailbody & "<font size =2 face = Verdana>" & "<strong>Pais:</strong> " & strCountry & "<br>" & "<strong>CP:</strong> " & strPostalCode  & "</font>" & "<br />"
  mailbody = mailbody & "<font size =2 face = Verdana>" & "<strong>Teléfono:</strong> " & strPhone & "<br>" & "<strong>Tipo de Pago:</strong> " & strShipMethod  & "</font>"
  mailbody = mailbody & "</BODY>"
  mailbody = mailbody & "</HTML>"
' Send the e-mail
Set objCDO = Server.CreateObject("Persits.MailSender")
objCDO.Host = Servidor
objCDO.AddAddress "[email protected]"
objCDO.From = strEmail
objCDO.Subject =Asunto
objCDO.Body =mailbody
objCDO.IsHTML = True
strErr = ""
On Error Resume Next 
objCDO.Send	
If Err <> 0 Then 
strErr = Err.Description
End If

Set objCDO = Nothing

Alguien sabe que puede estar pasando???
Gracias

javihb · #2 (**permalink**) 03/10/2006, 10:05

Otra cosa, como puedo saber si aspemail no ha expirado su funcionamiento??es decir que mediante un script, este:

Código:

<% @ Language="VBScript" %>
<% Option Explicit %>
<%
'################################################# ################################
'## Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## [email protected]
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'################################################# ################################

Dim theComponent(18)
Dim theComponentName(18)

'## the components
theComponent(0) = "ABMailer.Mailman"
theComponent(1) = "Persits.MailSender"
theComponent(2) = "SMTPsvg.Mailer"
theComponent(3) = "SMTPsvg.Mailer"
theComponent(4) = "CDONTS.NewMail"
theComponent(5) = "CDONTS.NewMail"
theComponent(6) = "CDO.Message"
theComponent(7) = "dkQmail.Qmail"
theComponent(8) = "Dundas.Mailer"
theComponent(9) = "Dundas.Mailer"
theComponent(10) = "Geocel.Mailer"
theComponent(11) = "iismail.iismail.1"
theComponent(12) = "Jmail.smtpmail"
theComponent(13) = "MDUserCom.MDUser"
theComponent(14) = "ASPMail.ASPMailCtrl.1"
theComponent(15) = "ocxQmail.ocxQmailCtrl.1"
theComponent(16) = "SoftArtisans.SMTPMail"
theComponent(17) = "SmtpMail.SmtpMail.1"
theComponent(18) = "VSEmail.SMTPSendMail"

'## the name of the components
theComponentName(0) = "ABMailer v2.2+"
theComponentName(1) = "ASPEMail"
theComponentName(2) = "ASPMail"
theComponentName(3) = "ASPQMail"
theComponentName(4) = "CDONTS (IIS 3/4/5)"
theComponentName(5) = "Chili!Mail (Chili!Soft ASP)"
theComponentName(6) = "CDOSYS (IIS 5/5.1/6)"
theComponentName(7) = "dkQMail"
theComponentName(8) = "Dundas Mail (QuickSend)"
theComponentName(9) = "Dundas Mail (SendMail)"
theComponentName(10) = "GeoCel"
theComponentName(11) = "IISMail"
theComponentName(12) = "JMail"
theComponentName(13) = "MDaemon"
theComponentName(14) = "OCXMail"
theComponentName(15) = "OCXQMail"
theComponentName(16) = "SA-Smtp Mail"
theComponentName(17) = "SMTP"
theComponentName(18) = "VSEmail"

Function IsObjInstalled(strClassString)
on error resume next
' initialize default values
IsObjInstalled = False
Err = 0
' testing code
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
' cleanup
Set xTestObj = Nothing
Err = 0
on error goto 0
End Function

Response.Write "<html>" & vbNewLine & _
vbNewLine & _
"<head>" & vbNewLine & _
" <title>E-mail Component Test</title>" & vbNewLine & _
"</head>" & vbNewLine & _
vbNewLine & _
"<body bgColor=""white"" text=""midnightblue"" link=""darkblue"" aLink=""red"" vLink=""red"">" & vbNewLine & _
"<font face=""Verdana, Arial, Helvetica"">" & vbNewLine & _
"<table border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgcolor=""black"">" & vbNewLine & _
" <table border=""0"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgcolor=""midnightblue"" colspan=""2"" align=""center""><font size=""2"" color=""mintcream""><b>E-mail Component Test</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgcolor=""midnightblue"" colspan=""2"" align=""center""><font size=""2"" color=""mintcream"">The following components are currently<br />available choices in the latest<br />release of Snitz Forums 2000</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
Dim i
for i=0 to UBound(theComponent)
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""#9FAFDF"" align=""right""><font size=""2""><strong>" & theComponentName(i) & ":&nbsp;</strong></font></td>" & vbNewLine & _
" <td bgColor=""#9FAFDF"" align=""center""><font size=""2"">"
if Not IsObjInstalled(theComponent(i)) then
Response.Write("not installed")
else
Response.Write("<strong>installed!</strong>")
end if
Response.Write "</font></td>" & vbNewLine & _
" </tr>" & vbNewline
next
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine & _
"</font>" & vbNewLine & _
"</body>" & vbNewLine & _
vbNewLine & _
"</html>" & vbNewLine
%>

veo si esta instalado o no, pero como saber si no me ha caducado..?
Gracias