for i in 1..mailSen.count loop
     if(mailSen(i) is not null) then       
      
       SELECT t.contact_email, t.company_id into email, id_company_card FROM investors_contact_cards t WHERE t.contact_id = mailsen(i);  
     
          
         
          SELECT count(i.id_company) INTO id_event_company FROM investors_events i WHERE i.id_company = id_company_card;
                     
          IF (id_event_company = 1) THEN
             email_add := email_add ||','|| email;
             UPDATE investors_events s SET s.question = sendText, s.zgoda = email_add WHERE s.id_company = id_company_card;                       
          ELSE
             email_add := null;
             email_add := email_add ||','|| email;
             INSERT INTO investors_events i
                (ID_COMPANY, DATE_EVENTS, PLACE, AMOUNT, QUESTION, EVENT_TYPY, ZGODA, ID)
             VALUES
                (id_company_card, to_date(sendData,'dd.mm.yyyy'), null, null, sendText, 3, email_add, GET_ID_INV_TYPE.NEXTVAL);
          
          END IF;




        htp.p(id_company_card ||' - '||email_add||'<br/>');

     

       end if;
       email_add := null;
    end loop;
    commit;


   
    exception when others then htp.p('sendMailContact:'||sqlerrm);
END;