// Some code...
prAnyProcedure.submit(&parm1, &parm2)
// Some code...
// Some code...

for each empresa
    where EmpresaEstado=1
    &Empresanombre=EmpresaNombre
    &EmpresaEmail=EmpresaEmail
    &EmpresaServidorSalida=EmpresaServidorSalida
    &EmpresaServidorPassword=EmpresaServidorPassword
endfor

for each recordatorios

    where RecordatoriosEstado=1
    where RecordatoriosDiaEnvio=day(today())
        &smtp.Host = 'smtp.gmail.com'
        &smtp.Port = 25
        &smtp.Sender.Address = TRIM(&EmpresaEmail)
        &smtp.Sender.Name = TRIM(&empresanombre)
        &smtp.Authentication = 1
        &smtp.Secure=1
        &smtp.UserName = TRIM(&empresaEmail)
        &smtp.Password = trim(&EmpresaServidorPassword)
        &recordatoriosasunto=RecordatoriosAsunto
        &recordatoriostexto=RecordatoriosTexto

        &mail.To.New('Mauricio','mlopez.informatica@gmail.com')
        &smtp.ErrDisplay = 0
        &smtp.Login()
        for each
            where RecordatoriosClienteEstado=1
            &mail.BCC.new(RecordatoriosClienteMail1,trim(RecordatoriosClienteMail1))
            if RecordatoriosClienteMail2<>''
                &mail.BCC.new(RecordatoriosClienteMail2,trim(RecordatoriosClienteMail2))
            endif
        endfor
        &mail.Subject = &recordatoriosasunto
        &mail.Text = &recordatoriostexto
        &smtp.Send(&mail)
        &mail.Clear()
        &smtp.Logout()
endfor