Email 发件人名称与发件人地址不同Oracle SMTP

我正在使用SMTP在oracle中编写一个简单的邮件程序

CREATE OR REPLACE PROCEDURE send_mail (p_to        IN VARCHAR2,
                                   p_from      IN VARCHAR2,
                                   p_subject   IN VARCHAR2,
                                   p_message   IN VARCHAR2,
                                   p_smtp_host IN VARCHAR2,
                                   p_smtp_port IN NUMBER DEFAULT 25)
AS
  l_mail_conn   UTL_SMTP.connection;
BEGIN
  l_mail_conn := UTL_SMTP.open_connection(p_smtp_host, p_smtp_port);
  UTL_SMTP.helo(l_mail_conn, p_smtp_host);
  UTL_SMTP.mail(l_mail_conn, p_from);
  UTL_SMTP.rcpt(l_mail_conn, p_to);

  UTL_SMTP.open_data(l_mail_conn);

  UTL_SMTP.write_data(l_mail_conn, 'Date: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS') || UTL_TCP.crlf);
  UTL_SMTP.write_data(l_mail_conn, 'To: ' || p_to || UTL_TCP.crlf);
  UTL_SMTP.write_data(l_mail_conn, 'From: ' || p_from || UTL_TCP.crlf);
  UTL_SMTP.write_data(l_mail_conn, 'Subject: ' || p_subject || UTL_TCP.crlf);
  UTL_SMTP.write_data(l_mail_conn, 'Reply-To: ' || p_from || UTL_TCP.crlf || UTL_TCP.crlf);

  UTL_SMTP.write_data(l_mail_conn, p_message || UTL_TCP.crlf || UTL_TCP.crlf);
  UTL_SMTP.close_data(l_mail_conn);

  UTL_SMTP.quit(l_mail_conn);
END;

在执行程序时，发件人会自动从发件人电子邮件地址中提取第一部分。例如，如果发件人的邮件是Dummy@zyz.com，发件人名称显示为虚拟名称

我要做的是在邮件地址保持不变的情况下显示发件人名称。例如，发件人地址Dummy@xyz.com，发送方名称可以是Test[除Dummy之外的任何内容]

请指导如何实现这一点

---

提前感谢

您可以通过以下方式更改发件人的唯一名称：

UTL_SMTP.write_数据（l_mail_conn，'From:'| | | p| u custom| u From | | UTL_TCP.crlf）；

也就是说，

p\u custom\u from='Test'

可用于提供自定义的

名称

，该名称可能不同于中指定的内容：

UTL\u SMTP.mail（l\u mail\u conn，p\u from）