UTL_SMTP to send all the query result in one mail

Question

Hello All,
I have a procedure for Oracle User Password Expiry Notification via mail using UTL_SMTP
Also, I have created a table (email_address) to store the email addresses
TableName: EMAIL_ADDRESS (username, email)
USERNAME
EMAIL
HR
[email protected]
SH
[email protected]
SAMPLE
[email protected]
TEST
[email protected]
My PL/SQL
declare
crlf VARCHAR2(2)  := chr(13)||chr(10);
CURSOR c1 IS SELECT
e.alternate_name,e.email,e.cc,u.expiry_date, round(u.expiry_date-sysdate) as date_diff
FROM dba_users u, email_address e
WHERE u.username=e.username;
username VARCHAR2(50);
email VARCHAR2(250);
expire_date varchar2(50);
date_diff  varchar2(50);
sender VARCHAR2(40) := '[email protected]';
message VARCHAR2(200);
mailhost VARCHAR2(30) := 'x.x.x.x'; 
mail_conn UTL_SMTP.connection;
BEGIN
message:=' user will expire in '; 
OPEN c1;
LOOP
FETCH c1 INTO username,email,expire_date,date_diff;
EXIT WHEN c1%NOTFOUND; 
mail_conn := UTL_SMTP.open_connection(mailhost, 25);
UTL_SMTP.helo(mail_conn, mailhost);
UTL_SMTP.mail(mail_conn, sender);
UTL_SMTP.rcpt(mail_conn, email);
UTL_SMTP.data(mail_conn, 'To: ' || email || crlf || 'Subject: ' || '[Test Mail]: Oracle User Password Expiry Reminder(user: '|| username ||')' || crlf || 'Password of ' || username||message||' '||date_diff||'days'||' (Expiry Date: ' || expire_date ||');
UTL_SMTP.quit(mail_conn);
END LOOP;
CLOSE c1;
END;
But when I execute the above PL/SQL, I am getting 4 different mails having each user password expiry information.
But I want all the user password expiry information in one mail.
Is it possible??

Answer 1

declare
crlf VARCHAR2(2)  := chr(13)||chr(10);
CURSOR c1 IS SELECT 
e.alternate_name,e.email,e.cc,u.expiry_date, round(u.expiry_date-sysdate) as date_diff 
FROM dba_users u, email_address e 
WHERE u.username=e.username;
username VARCHAR2(50); 
email VARCHAR2(250);
expire_date varchar2(50);
date_diff  varchar2(50);
sender VARCHAR2(40) := '[email protected]';  
message VARCHAR2(200);
final_message varchar2(1000);
mailhost VARCHAR2(30) := 'x.x.x.x';  
mail_conn UTL_SMTP.connection; 
BEGIN 
message:=' user will expire in ';  
OPEN c1; 
LOOP 
FETCH c1 INTO username,email,expire_date,date_diff; 
EXIT WHEN c1%NOTFOUND;  
   final_message := final_message || 'user: '|| username ||')' || crlf || 'Password of ' || username||message||' '||date_diff||'days'||' (Expiry Date: ' || expire_date || '): ';
END LOOP; 
CLOSE c1;
mail_conn := UTL_SMTP.open_connection(mailhost, 25); 
UTL_SMTP.helo(mail_conn, mailhost);
UTL_SMTP.mail(mail_conn, sender); 
UTL_SMTP.rcpt(mail_conn, email);
UTL_SMTP.DATA(mail_conn, 'To: ' || email || crlf || 'Subject: ' || '[Test Mail]: Oracle User Password Expiry Reminder('||final_message||')';
UTL_SMTP.quit(mail_conn);
END;