DECLARE 

R NUMBER;

CUS_EMAIL VARCHAR2(100);

CUS_NAME VARCHAR2(100);

P12_START NUMBER;

P12_END NUMBER;

EMAIL_START NUMBER;

EMAIL_END NUMBER;

BEGIN

EMAIL_START := :P5_START;

EMAIL_END := :P5_END;

 FOR i IN EMAIL_START..EMAIL_END

LOOP 

SELECT R,CUSTOMER_NAME,CUSTOMER_EMAIL INTO R,CUS_NAME,CUS_EMAIL FROM 

   (SELECT CUSTOMER_ID,CUSTOMER_NAME,CUSTOMER_EMAIL,CUSTOMER_STATE, ROW_NUMBER() OVER 

    (ORDER BY CUSTOMER_STATE) R FROM CUSTOMERS WHERE UPPER(CUSTOMER_STATE) = UPPER(:P5_STATE))

   WHERE R = i;

    APEX_MAIL.SEND( 

    p_to => CUS_EMAIL , 

    p_from => 'js@buxomcurvy.com', 

    p_subj => :P5_SUBJECT, 

    p_body => 'Please Check email.', 

    p_body_html => 'Dear' || '  '|| CUS_NAME || ',' || :P5_BODY 

    );

APEX_MAIL.PUSH_QUEUE;  

END LOOP;

END;