Problema con ASPEmail, se produce un bucle infinito...

[tuky]

Hola!!!!!

Espero que me puedan ayudar, estoy haciendo este trabajo y me sale este error que me tiene todo el tiempo tomado...

Primero tengo este código,

Código:

                aBcc = split(Destinatarios,";")
                For n = 0 to ubound(aBcc)
                        on error resume next
                        cMail = aBcc(n)
                        strError = Correo(De(0),De(1),cMail,cMail, Asunto,MensajeE,Servidor)
                        on error goto 0
                next

La funcion correo la escribí para emular la función existente en PHP. El código de la función es el siguiente.

Código:

                Function Correo(From,FromName,Address,AddressName,Subject,Body,Servidor)    
                    Dim Mail
                    On Error Resume Next
                    Set Mail = Server.CreateObject("Persits.MailSender")
                    Mail.Host = Servidor
                    Mail.From = From
                    Mail.FromName = FromName
                    Mail.AddAddress Address, AddressName
                    Mail.Subject = Subject
                    Mail.IsHTML = True
                    Mail.Body = Body
                    Mail.Send
                    If Err <> 0 Then
                        Correo = Err.Description
                    Else
                        Correo = ""
                    End If
                    Set Mail = Nothing
                End Function

El problema surge aleatoriamente, a veces todo funciona sin problemas... pero suele ocurrir que el FOR que recorre los destinatarios falla y se queda enviando correos a un mismo destinatario.... y la única forma de parar el envío es reiniciando el servidor....

Alguien tiene alguna sugerencia ^^

MIL GRACIAAAAAS A TODOS!!!!


Tuky

[u_goldman]

Para comenzar deshazte de los error handlers y correlo varias veces hasta que puedas ver cual es el error, a simple vista no se ve nada, quizas es un error de datos.

Código:

                aBcc = split(Destinatarios,";")
                For n = 0 to ubound(aBcc)
                        'on error resume next
                        cMail = aBcc(n)
                        strError = Correo(De(0),De(1),cMail,cMail, Asunto,MensajeE,Servidor)
                        'on error goto 0
                next

                Function Correo(From,FromName,Address,AddressName,Subject,Body,Servidor)    
                    Dim Mail
                    'On Error Resume Next
                    Set Mail = Server.CreateObject("Persits.MailSender")
                    Mail.Host = Servidor
                    Mail.From = From
                    Mail.FromName = FromName
                    Mail.AddAddress Address, AddressName
                    Mail.Subject = Subject
                    Mail.IsHTML = True
                    Mail.Body = Body
                    Mail.Send
                    If Err <> 0 Then
                        Correo = Err.Description
                    Else
                        Correo = ""
                    End If
                    Set Mail = Nothing
                End Function