---------------------------------------------------主过程----------------------------------------------------- BEGIN L_SENDORADDRESS :='<'|| P_SENDOR ||'>'; P_SPLITE_STR(P_RECEIVER);--处理邮件地址 FOR K IN1 .. MY_ADDRESS_LIST.COUNT LOOP P_EMAIL(L_SENDORADDRESS, MY_ADDRESS_LIST(K)); END LOOP; /*处理邮件地址,根据逗号分割邮件*/