Avevo già dichiarato TOTMAIL (integer) ma mi da errore sull'istruzione:

TOTMAILS = rstEmail.RecordCount evidenzia il RecordCount (Tipo non corrispondente)