我们可以在oracle中发送包含多个工作表的excel电子邮件吗？

DECLARE
   -- 定义SMTP连接信息
   l_mailhost VARCHAR2(255) := 'your_mail_host';
   l_port     NUMBER := 25;
   l_username VARCHAR2(255) := 'your_username';
   l_password VARCHAR2(255) := 'your_password';
   l_sender   VARCHAR2(255) := 'sender@example.com';
   l_recipient VARCHAR2(255) := 'recipient@example.com';
   l_subject  VARCHAR2(255) := 'Excel电子邮件';

   -- 定义Excel文件路径和名称
   l_excel_file VARCHAR2(255) := 'path_to_excel_file';

   -- 定义工作表名称
   l_sheet1_name VARCHAR2(255) := 'Sheet1';
   l_sheet2_name VARCHAR2(255) := 'Sheet2';

   -- 定义Excel文件类型
   l_excel_type VARCHAR2(255) := 'application/vnd.ms-excel';

   -- 定义邮件正文
   l_body VARCHAR2(4000) := '这是一个包含多个工作表的Excel电子邮件。';

   -- 定义UTL_SMTP连接
   l_mail_conn UTL_SMTP.connection;
BEGIN
   -- 连接到SMTP服务器
   l_mail_conn := UTL_SMTP.open_connection(l_mailhost, l_port);
   
   -- 登录SMTP服务器
   UTL_SMTP.ehlo(l_mail_conn, l_mailhost);
   UTL_SMTP.login(l_mail_conn, l_username, l_password);
   
   -- 创建邮件
   UTL_SMTP.mail(l_mail_conn, l_sender);
   UTL_SMTP.rcpt(l_mail_conn, l_recipient);
   UTL_SMTP.open_data(l_mail_conn);
   
   -- 添加邮件头部信息
   UTL_SMTP.write_data(l_mail_conn, 'Date: ' || TO_CHAR(SYSDATE, 'Dy, DD Mon YYYY HH24:MI:SS') || UTL_TCP.crlf);
   UTL_SMTP.write_data(l_mail_conn, 'From: ' || l_sender || UTL_TCP.crlf);
   UTL_SMTP.write_data(l_mail_conn, 'To: ' || l_recipient || UTL_TCP.crlf);
   UTL_SMTP.write_data(l_mail_conn, 'Subject: ' || l_subject || UTL_TCP.crlf);
   UTL_SMTP.write_data(l_mail_conn, 'MIME-Version: 1.0' || UTL_TCP.crlf);
   UTL_SMTP.write_data(l_mail_conn, 'Content-Type: multipart/mixed; boundary="SECBOUND"' || UTL_TCP.crlf || UTL_TCP.crlf);
   
   -- 添加邮件正文
   UTL_SMTP.write_data(l_mail_conn, '--SECBOUND' || UTL_TCP.crlf);
   UTL_SMTP.write_data(l_mail_conn, 'Content-Type: text/plain' || UTL_TCP.crlf || UTL_TCP.crlf);
   UTL_SMTP.write_data(l_mail_conn, l_body || UTL_TCP.crlf || UTL_TCP.crlf);
   
   -- 添加第一个工作表
   UTL_SMTP.write_data(l_mail_conn, '--SECBOUND' || UTL_TCP.crlf);
   UTL_SMTP.write_data(l_mail_conn, 'Content-Type: ' || l_excel_type || '; name="' || l_sheet1_name || '.xls"' || UTL_TCP.crlf);
   UTL_SMTP.write_data(l_mail_conn, 'Content-Disposition: attachment; filename="' || l_sheet1_name || '.xls"' || UTL_TCP.crlf || UTL_TCP.crlf);
   UTL_SMTP.write_raw_data(l_mail_conn, UTL_FILE.GET_BLOB_DATA(UTL_FILE.FOPEN('DIRECTORY_NAME', l_excel_file || '#' || l_sheet1_name || '.xls', 'R')));
   UTL_SMTP.write_data(l_mail_conn, UTL_TCP.crlf || UTL_TCP.crlf);
   
   -- 添加第二个工作表
   UTL_SMTP.write_data(l_mail_conn, '--SECBOUND' || UTL_TCP.crlf);
   UTL_SMTP.write_data(l_mail_conn, 'Content-Type: ' || l_excel_type || '; name="' || l_sheet2_name || '.xls"' || UTL_TCP.crlf);
   UTL_SMTP.write_data(l_mail_conn, 'Content-Disposition: attachment; filename="' || l_sheet2_name || '.xls"' || UTL_TCP.crlf || UTL_TCP.crlf);
   UTL_SMTP.write_raw_data(l_mail_conn, UTL_FILE.GET_BLOB_DATA(UTL_FILE.FOPEN('DIRECTORY_NAME', l_excel_file || '#' || l_sheet2_name || '.xls', 'R')));
   UTL_SMTP.write_data(l_mail_conn, UTL_TCP.crlf || UTL_TCP.crlf);
   
   -- 添加邮件结束标记
   UTL_SMTP.write_data(l_mail_conn, '--SECBOUND--' || UTL_TCP.crlf);
   
   -- 关闭邮件
   UTL_SMTP.close_data(l_mail_conn);
   
   -- 断开与SMTP服务器的连接
   UTL_SMTP.quit(l_mail_conn);
   
   DBMS_OUTPUT.PUT_LINE('Excel电子邮件已发送成功！');
EXCEPTION
   WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('发送Excel电子邮件时发生错误：' || SQLERRM);
END;