Type TErrors Is Table of Integer Index By VarChar2(1000);
fErrors       TErrors;

           If fErrors.Exists(fErrorMessage) Then
              fErrors(fErrorMessage) := NVL(fErrors(fErrorMessage), 0) + 1;
           Else
              fErrors(fErrorMessage) := 1;
           End If;

       For fErrorMessage in fErrors.first..fErrors.last Loop
              fI := fI + 1;
              fMail := '<tr><td>' || fI
                   || '</td><td>' || fErrorMessage
                   || '</td><td>' || fErrors(fErrorMessage)
                   || '</td></tr>';
              fMailLog.Extend(1);
              fMailLog(fMailLog.Last) := fMail;                               
       End Loop;