Function that would send email with body of select output

Question

Hello support,
I want to create a function which would send an email of such type
BEGIN
flows_030100.wwv_flow_mail.send(
p_subj => 'test'
,p_body => I WANT A SELECT OUTPUT HERE :)))
,p_from => 'sender@mail'
,p_to => 'recepient@mail'
flows_030100.wwv_flow_mail.push_queue_background();
END;
I need a select output to be a body of an email.
Thank you in advance.

Answer 1

Hi,
In our WMS system we use the demo_mail package to send emails when we get system errors, you can write content to the body within a cursor or for i in (select ....) loop
conn                  utl_smtp.connection;
begin
  conn := demo_mail.begin_mail(
    sender     => 'Helpdesk <[email protected]>',
    recipients => V_Recipients,
    subject    => 'A WMS error has occurred!',
    mime_type  => demo_mail.MULTIPART_MIME_TYPE);
  demo_mail.write_text(
    conn => conn,
    message => 'A system error has occurred at ' || I_Origin || ' while being operated by user ' || I_Username);
  utl_smtp.write_data(conn, utl_tcp.CRLF);
  utl_smtp.write_data(conn, utl_tcp.CRLF);
  demo_mail.write_text(
    conn => conn,
    message => 'The error details are: ' || I_Notes);
  for i in (SELECT STATEMENT HERE..) loop
    demo_mail.write_text(
      conn => conn,
      message => i.field_name;
      utl_smtp.write_data(conn, utl_tcp.CRLF);
  end loop;
  utl_smtp.write_data(conn, utl_tcp.CRLF);
  demo_mail.write_text(
    conn => conn,
    message => V_Insert_Error);
  demo_mail.end_mail( conn => conn );Hope this helps.
Graham.