Oracle PLSQL Send mail Issue.

Question

Hi All,
I used to send some emails using oracle PLSQL code in both 10 g and 11g.But now days mail is getting triggered without any body in both the 10g and 11g versions.
Some mails are triggering perfectly.I am unable to sort out the issue, please help me in this concern.

Answer 1

Code that i have used is:
create or replace
PROCEDURE Sendmail(V_MAILHOST VARCHAR2,V_FROM VARCHAR2,V_TO clob ,V_CC VARCHAR2, V_SUBJECT VARCHAR2,V_MSGTEXT VARCHAR2,V_MODULE VARCHAR2) AS
  l_mail_conn   UTL_SMTP.connection;
  l_subject      VARCHAR2(100):='test mail';
  l_msg_text   VARCHAR2(500):='hi , testing alert mail';
  v_reply      utl_smtp.reply;
  L_RECIPIENTS  clob;
  l_recipients1  clob;
  V_TO1            clob;
  v_errmsg        VARCHAR2(500);
  mul_recip        NUMBER;
  mul_recip1        NUMBER;
  slen             NUMBER:=1;
  slen1             NUMBER:=1;
  V_errcode        VARCHAR2(500);
BEGIN
  l_mail_conn:= UTL_SMTP.open_connection(v_mailhost,25);
   v_reply :=UTL_SMTP.helo(l_mail_conn, v_mailhost);
   v_reply :=UTL_SMTP.mail(l_mail_conn, v_from);
  -- V_TO1:=null;--'[email protected]';
   SELECT INSTR(V_TO,',') INTO mul_recip FROM dual;
    IF mul_recip =0
    THEN
         utl_smtp.rcpt(l_mail_conn, V_TO );
    ELSE
        WHILE(INSTR(V_TO,',',slen) > 0)
        LOOP
              l_recipients := SUBSTR(V_TO, slen, INSTR(SUBSTR(V_TO,slen),',')-1);
              slen := slen+INSTR(SUBSTR(V_TO, slen),',');
            utl_smtp.rcpt(l_mail_conn, l_recipients);
        END LOOP;
            l_recipients := SUBSTR(V_TO, slen);
            utl_smtp.rcpt(l_mail_conn, l_recipients);
    END IF;    
     IF V_CC IS NOT NULL
     THEN
      SELECT INSTR(V_CC,',') INTO mul_recip1 FROM dual;
    IF mul_recip1 =0
    THEN
         utl_smtp.rcpt(l_mail_conn, V_CC );
    ELSE
        WHILE(INSTR(V_CC,',',slen1) > 0)
        LOOP
              l_recipients1 := SUBSTR(V_CC, slen1, INSTR(SUBSTR(V_CC,slen1),',')-1);
              slen1 := slen1+INSTR(SUBSTR(V_CC, slen1),',');
            utl_smtp.rcpt(l_mail_conn, l_recipients1);
        END LOOP;
            l_recipients1 := SUBSTR(V_CC, slen1);
            utl_smtp.rcpt(l_mail_conn, l_recipients1);
    END IF;    
END IF;        
v_reply :=utl_smtp.open_data(l_mail_conn );
utl_smtp.write_data(l_mail_conn, 'From: ' || V_FROM || utl_tcp.crlf);
utl_smtp.write_data(l_mail_conn, 'Subject: ' || v_subject || utl_tcp.crlf);
utl_smtp.write_data(l_mail_conn, 'To: ' || V_TO || utl_tcp.crlf);
utl_smtp.write_data(l_mail_conn, 'CC: ' || V_CC || utl_tcp.crlf);
utl_smtp.write_data(l_mail_conn, 'Content-Type: text/html' || utl_tcp.crlf);
UTL_SMTP.WRITE_DATA(L_MAIL_CONN, V_MSGTEXT );
  if length(V_TO)>=4000 then
  dbms_output.put_line('none');
  else
   insert into MAIL_LOG(MAILFROM, MAILTO, SUBJECT, LOGGED_DATE, MAIL_STATUS, MAILCC, MAILTEXT,MODULE_ID)
      VALUES(V_FROM,v_to,V_SUBJECT,SYSDATE,'sent',V_CC,V_MSGTEXT,V_MODULE);
    end if;
    utl_smtp.close_data(l_mail_conn );
    utl_smtp.quit(l_mail_conn);
EXCEPTION
WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
    BEGIN
      UTL_SMTP.QUIT(l_mail_conn);
    EXCEPTION
      WHEN UTL_SMTP.TRANSIENT_ERROR OR UTL_SMTP.PERMANENT_ERROR THEN
        NULL; -- When the SMTP server is down or unavailable, we don't have
              -- a connection to the server. The QUIT call will raise an
              -- exception that we can ignore.
    END;
     v_errmsg:='Failed to send mail due to the following error: ' ||SQLERRM||' errcode '||SQLCODE||'from :'||V_FROM|| ' V_TO '||V_TO;
INSERT INTO MAIL_LOG(MAILFROM, MAILTO, SUBJECT, LOGGED_DATE, MAIL_STATUS, MAILCC, MAILTEXT,MODULE_ID)
VALUES(V_FROM,v_to,V_SUBJECT,SYSDATE,v_errmsg,V_CC,V_MSGTEXT,V_MODULE);
END Sendmail;