在Oracle 10g中，发送电子邮件通常不直接通过SQL或PL/SQL实现，因为Oracle数据库本身不直接支持发送电子邮件的功能。但是，你可以通过调用外部程序（如UNIX/Linux shell脚本或Windows批处理文件）或使用Oracle的UTL_SMTP包（从Oracle 10g Release 2开始支持）来实现。
由于UTL_SMTP包在Oracle 10g的某些版本中可能不可用或需要额外的安装和配置，以下是一个使用UTL_SMTP包发送电子邮件的示例，假设你已经有了必要的权限和配置。
请注意，这个示例假设你已经有了UTL_SMTP包，并且Oracle数据库已经配置好了网络访问权限，以便能够连接到SMTP服务器。
plsql DECLARE l_mail_host VARCHAR2(100) := 'smtp.example.com'; -- SMTP服务器地址 l_mail_conn UTL_SMTP.connection; l_boundary VARCHAR2(50) := '----=_NextPart_000_0000_01'; l_from VARCHAR2(100) := 'from@example.com'; -- 发件人邮箱 l_to VARCHAR2(100) := 'to@example.com'; -- 收件人邮箱 l_subject VARCHAR2(255) := 'Test Email from Oracle'; -- 邮件主题 l_message CLOB; BEGIN -- 连接到SMTP服务器 l_mail_conn := UTL_SMTP.open_connection(l_mail_host, 25); -- 发送HELO命令 UTL_SMTP.helo(l_mail_conn, l_mail_host); -- 发送发件人信息 UTL_SMTP.mail(l_mail_conn, l_from); -- 发送收件人信息 UTL_SMTP.rcpt(l_mail_conn, l_to); -- 发送邮件的DATA头 UTL_SMTP.data(l_mail_conn, l_boundary); -- 构造邮件正文 l_message := 'From: ' || l_from || UTL_TCP.crlf || 'To: ' || l_to || UTL_TCP.crlf || 'Subject: ' || l_subject || UTL_TCP.crlf || 'MIME-Version: 1.0' || UTL_TCP.crlf || 'Content-Type: text/plain; charset="iso-8859-1"' || UTL_TCP.crlf || 'Content-Transfer-Encoding: 7bit' || UTL_TCP.crlf || UTL_TCP.crlf || 'Hello, this is a test email from Oracle using UTL_SMTP.' || UTL_TCP.crlf || '--' || l_boundary || '--'; -- 发送邮件正文 UTL_SMTP.write_raw_data(l_mail_conn, UTL_I18N.STRING_TO_RAW(l_message, 'AL32UTF8')); -- 关闭连接 UTL_SMTP.quit(l_mail_conn); EXCEPTION WHEN OTHERS THEN -- 如果有异常发生，则关闭连接并打印错误信息 IF UTL_SMTP.is_open(l_mail_conn) THEN UTL_SMTP.quit(l_mail_conn); END IF; RAISE; -- 重新抛出异常 END; /
**注意**：这个示例可能需要根据你的SMTP服务器配置和Oracle数据库的实际情况进行调整。特别是SMTP服务器的地址、端口、是否需要认证等信息，都可能影响邮件的发送。
如果你的Oracle 10g版本不包含UTL_SMTP包，你可能需要考虑使用其他方法，如通过数据库外部程序（如shell脚本或Java程序）来发送电子邮件。