GeneXus - Enviar correo electronico a direcciones en una tabla de la base de datos

Buen dia desarrolladores genexus.
estoy trabajando con Gx Ev1 u8 .net mysql

estoy tratando de desarrollar un procedure para envio masivo de correo electronico (si alguien tiene un ejemplo le agradecere en el alma me lo enviepor aca


lo que estoy tratando de hacer es esto:

//&smtpSession (tipo de datos smtpSession)
//&mail (tipo de datos MailMessage)
//&MailRecipient (tipo de datos mailrecipient)



&smtpSession.Host = 'IP from my Lotus Notes smtp Server ' //Ill not show you
&smtpSession.Port = 25
&smtpSession.Sender.Address = '[email protected]'
&smtpSession.Sender.Name = 'My domain Name'
&smtpSession.Authentication = 0
&smtpSession.Login()
//&smtpSession.AttachDir = 'C:\MailTemplates'



&Mail.Clear()
&Mail.Subject = 'Esto es solo una prueba'
&Mail.Text = 'Esto es una prueba, este es el cuerpo del correo electronico'
&Mail.To.New('person','[email protected]')

for each DES_NoBlock //emails adress from database
where DES_NoBlock = 1

&MailRecipient.Name = DES_Id.ToString()
&MailRecipient.Address = DES_Email
&Mail.BCC.Add(&MailRecipient)
DES_UltimoEnvio = now()
endfor

&smtpSession.Send(&Mail)

&smtpSession.Logout()



el proceso ejecuta correctamente (no da error alguno) pero los correos no se reciven no se si es el servidor o q falta algo por favor ayuda