fTmpBLOB2 BLOB;
        fBuffer RAW(5000);
Begin
fBuffer := Utl_RAW.cast_to_raw(Convert(aMailAttach(i), 'UTF8'));
                DBMS_LOB.WRITEAPPEND(fTmpBLOB2, Utl_Raw.length(fBuffer), fBuffer);

           utl_smtp.write_data(v_Mail_Conn, 'Content-Type: '||MAIL_PKG.attachments(x).mimetype||'; charset="utf-8"'|| crlf );
           utl_smtp.write_data(v_Mail_Conn, 'Content-Transfer-Encoding: base64'|| crlf );

                        fMail := Q.name || ';' ||
                                 Q.Address || ';' ||
                                 to_char(sysdate, 'DD.MM.YYYY') || ';' ||
                                 '' || ';' || Chr(13);
                         fAttachLog.Extend(1);
                         fAttachLog(fAttachLog.Last) := fMail;  

        For i In aMailAttach.First .. aMailAttach.Last
        Loop
            If aMailAttach.Exists(i) Then
                fBuffer := Utl_RAW.cast_to_raw(Convert(aMailAttach(i), 'UTF8'));
                DBMS_LOB.WRITEAPPEND(fTmpBLOB2, Utl_Raw.length(fBuffer), fBuffer);
            End If;
        End Loop;

           utl_smtp.write_data(v_Mail_Conn, 'Content-Type: '||MAIL_PKG.attachments(x).mimetype||'; charset="utf-8"'|| crlf );
           utl_smtp.write_data(v_Mail_Conn, 'Content-Transfer-Encoding: base64'|| crlf );

         LOOP
           BEGIN
             dbms_lob.read (MAIL_PKG.attachments(x).blobloc, v_amt, ps, vRAW);
           ps := ps + v_amt;
                 utl_smtp.write_raw_data(v_Mail_Conn, UTL_ENCODE.base64_encode(vRAW));                 
           EXCEPTION
                 WHEN no_data_found THEN
             EXIT;
         END;
         END LOOP;