Problema atrapando error al mandar email

[sqa212]

Tengo una cuenta en brinkster Premium, y con el codigo que he puesto abajo mando los emails desde mi web.Hasta aqui todo bien, pero ocurre que hoy han tenido en brinkster problemas con el servidor para mandar emails y cuando intento mandar uno me aparece este error.


Tipo de error:
(0x80040211)

Este tipo de error creo que es debido a que el servidor no esta disponible. (en este caso sendmail.brinkster.com)

Lo que me gustaria es que la proxima vez que ocurra este error lo pueda atrapar y redirigir al cliente a otra pagina en lugar de que le aparezca una pantalla de error, ¿Sabeis alguna forma de atrapar este error?



Este es el codigo:

dim email
dim strmensaje
email=rscust("email")
strmensaje=rscust("strmensaje")
Dim ObjMail
Set ObjMail = Server.CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")

objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="sendmail.brinkster.com"
objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername")="[email protected]"
objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="mipassword"
objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")=60
objConfig.fields.update

Set objMail.Configuration = objConfig
objMail.From = "[email protected]"
objMail.To = email
objMail.Subject = "Confirmación de su pedido"
objMail.HTMLBody = strmensaje
objMail.Send

On Error Resume Next
On Error GoTo 0
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
Else
End if
Set objMail = Nothing
Set objConfig = Nothing

[u_goldman]

Así?

On Error Resume Next
objMail.Send
If err.number <> 0 Then
Response.Redirect "pagina_error.asp"
End If

[sqa212]

No me funciona asi.
Brinkster requiere el uso de "On Error GoTo 0" y despues comprobar el objeto err object cuando se use "On Error Resume Next".

Incluso poniendo:
objMail.Send

On Error Resume Next
On Error GoTo 0
If Err <> 0 Then
Response.Redirect "pagina_error.asp"

No me redirige a esa pagina

[u_goldman]

mmmhhh...nunca he trabajado en Brinkster, pero entonces lo manda a una etiqueta...déjame hacer unas pruebas.


Salu2,

[u_goldman]

Y si lo inviertes?

Código:

On Error GoTo 0
On Error Resume Next
objMail.Send 

If Err.Number <> 0 Then
  Response.Redirect "pagina_error.asp"
End If

[sqa212]

Creo que de esa forma si consigo atrapar el error, pero no tengo claro una cosa, donde digoanteriormente:

Set objMail.Configuration = objConfig
objMail.From = "[email protected]"
objMail.To = email
objMail.Subject = "Confirmación de su pedido"
objMail.HTMLBody = strmensaje
objMail.Send ¿Debo quitar este de aqui o lo debo conservar aqui tambien?

On Error GoTo 0
On Error Resume Next
objMail.Send

If Err.Number <> 0 Then
Response.Redirect "mipedido.asp"
End If

[u_goldman]

objMail.Send ¿Debo quitar este de aqui o lo debo conservar aqui tambien?

Lo debes quitar, el error handler debe venir donde está la línea suceptible de error, es decir "En el evento error continúa en la siguiente línea" (On error resume Next)

On Error Resume Next
objMail.Send ' Aqui la linea suceptible de error
If err.number <> 0 Then 'continúa aquí, donde evalúa si el número de error no es cero y ejecuta


Salu2,

[sqa212]

Gracias aun no han solucionado los de brinkster el problema, cuando lo solucionen ellos te comento. Muchas Gracias de nuevo.

[sqa212]

Ya han solucionado el problema en brinkster y funciona perfect