Genexus

Hola Ezequiel.
Lo que te puede acelerar el proceso es hacer un sólo smtp.login() al principio.
Luego enviar una tanda de mensajes (blanqueando y re-utilizando &envío )
Finalmente hacer el smtp.logout()

Espero te sirva.
Saludos y suerte.
Néstor.

Ezequiel Cozzi <ezecozzi@gmail.com> 19/12/2011 14:26 Por favor, responda a gx-l

Para:        gx-l@gxtech.com.uy         cc:                 Asunto:        [gx-l] Tiempo de envio de e-mail

hola, estoy trabajando en Genexus9, java, sql server 2005 en un ambiente web.

Estoy haciendo una funcionalidad que lo que hace es mandar las facturas a los clientes.

O sea, se hace un lote de facturación que genera las facturas en archivo pdf y se agregan a una cola de pdf. Para que luego se envíen por mail a los clientes.

Luego en una grilla veo todos las las facturas por enviar y confirmo el envio.

Eh probado de mandar 50 mail con éxito pero muy lento, 15 a 30 minutos "mucho".

Tengo que ver la manera de hacer mas rápido el envío, alguna idea de que puede ser o como hacer que mejoren los tiempos de envió.

Por que tengo que mandar 1500 mail y esos tiempos no son nada aceptables. 

Desde ya muchísimas gracias, un abrazo, nos vemos

_____________________________________________________

        &MensSMTP.Sender.Address = trim(&EmailEmisorCorreo)             // Correo emisor
        &MensSMTP.Sender.Name = trim(&EmailEmisorNombre)                // Nombre emisor
        &MensSMTP.Host = trim(&EmailHost)                               // Host
        &MensSMTP.Timeout = 100                                         // Tiempo espera
        &MensSMTP.Authentication = &EmailEmisorAutentificacion          // Autentificación servidor (0 indica que no)
        &MensSMTP.Port = &EmailEmisorPuerto                             // Puerto servidor en host
        &MensSMTP.Secure = &EmailEmisorSecure                           // protocolo HTTPS  
        If &EmailEmisorAutentificacion = 1                              // Autenticado
            &MensSMTP.UserName = trim(&EmailEmisorUsuario)              // Usuario
            &MensSMTP.Password = trim(&EmailEmisorPassword)             // Contraseña
        Endif
        &MensSMTP.Login()
        &MensSMTP.Send(&Envio)                                          // Envia email
        // Para control //
        If &MensSMTP.ErrCode <> 0
            &Respuesta = 'Error' + str(&MensSMTP.ErrCode)
        Else
            &Respuesta = 'Listo'
        Endif
        &MensSMTP.Logout()
____________________________________________________________________________________

--
Has recibido este mensaje porque estás suscrito al grupo "GeneXus" de Grupos de Google.
Para publicar una entrada en este grupo, envía un correo electrónico a genexus@googlegroups.com.
Para anular tu suscripción a este grupo, envía un correo electrónico a genexus+unsubscribe@googlegroups.com
Para tener acceso a más opciones, visita el grupo en http://groups.google.com/group/genexus?hl=es.