CREATE OR REPLACE PROCEDURE SP_MAILFROM_DB_WITH_DATA(pmHost IN VARCHAR2,pmFrom IN OUT VARCHAR2,pmSubject VARCHAR2,pmTo VARCHAR2,pmCC VARCHAR2,pmBCC VARCHAR2,pmContent VARCHAR2)
IS
/**********
pmHost     -> Host Server Address
pmFrom     -> From Id
pmSubject -> Mail Subject
pmCC        -> CC
pmBCC       -> BCC
pmContent  -> Mail Content
****************/
  vMailConnection   UTL_SMTP.CONNECTION;
BEGIN
  vMailConnection := UTL_SMTP.OPEN_CONNECTION(pmHost,25);
  UTL_SMTP.HELO(vMailConnection,pmHost);
  UTL_SMTP.MAIL(vMailConnection,pmFrom);
  UTL_SMTP.RCPT(vMailConnection,pmTo);
  UTL_SMTP.RCPT(vMailConnection,pmCC);
  UTL_SMTP.RCPT(vMailConnection,pmBCC);
  UTL_SMTP.OPEN_DATA(vMailConnection);
  UTL_SMTP.WRITE_DATA(vMailConnection, 'Date: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS') || CHR(13));
  UTL_SMTP.WRITE_DATA(vMailConnection, 'From: ' || pmFrom || CHR(13));
  UTL_SMTP.WRITE_DATA(vMailConnection, 'Subject: ' || pmSubject || CHR(13));
  UTL_SMTP.WRITE_DATA(vMailConnection, 'To: ' || pmTo || CHR(13));
  UTL_SMTP.WRITE_DATA(vMailConnection, 'CC: ' || pmCC || CHR(13));
  UTL_SMTP.WRITE_DATA(vMailConnection, 'BCC: ' ||pmBCC|| CHR(13));
  UTL_SMTP.WRITE_DATA(vMailConnection, '' || CHR(13));
  -- FOR i IN 1 .. 2 LOOP
    UTL_SMTP.WRITE_DATA(vMailConnection,pmContent || CHR(13));
  -- END LOOP;

  UTL_SMTP.CLOSE_DATA(vMailConnection);
  UTL_SMTP.QUIT(vMailConnection);
END;