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