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