PDF attachment getting cut off

Question

Hello Experts,
I'm trying to send a PDF attachment using a PL/SQL procedure. In this procedure Im picking up the PDF file from server and sending it via email attachment. The procedure works fine and sends the PDF but it cuts off the data in the PDF. When I open the PDF file I can only see half of page the rest is just blank. I cant figure out why this is happening, can someone please check the procedure and let me know where im going wrong.
CREATE OR REPLACE PROCEDURE send_email AS
v_file_handle UTL_FILE.FILE_TYPE;
v_email_server VARCHAR2(100) := 'xxxx'; -- replace with SMTP server
v_conn UTL_SMTP.CONNECTION;
v_port NUMBER := 25;
v_reply UTL_SMTP.REPLY;
v_msg VARCHAR2(32767);
v_line VARCHAR2(2000);
v_message VARCHAR2(2000) ;
b_connected BOOLEAN := FALSE;
v_sender VARCHAR2(50) := '[email protected]'; -- Sender email address
CRLF VARCHAR2(2):= CHR(13) || CHR(10);
RECPT VARCHAR2(255) := '[email protected]'; -- Receptiant email address
p_stat NUMBER;
SLP PLS_INTEGER := 300;
pdirpath VARCHAR2(50) := 'TEST'; -- directory on the server
pfilename VARCHAR2(50) := 'test01.pdf'; -- pdf file on the server
BEGIN
p_stat := 0;
/***** Check if the file exists ****/
BEGIN
v_file_handle := UTL_FILE.FOPEN(pDirPath, pFileName, 'R');
EXCEPTION
WHEN UTL_FILE.INVALID_PATH THEN
p_stat := 01;
DBMS_OUTPUT.PUT_LINE(SQLERRM ||' '|| p_stat);
WHEN OTHERS THEN
p_stat := 02;
DBMS_OUTPUT.PUT_LINE(SQLERRM ||' '|| p_stat);
END;
/***** Try to connect for three times, do sleep in between for 5 minutes *****/
FOR i IN 1..3 LOOP
BEGIN
--open the connection with the smtp server and DO THE handshake
v_conn:= UTL_SMTP.OPEN_CONNECTION(v_email_server, v_port);
v_reply :=UTL_SMTP.HELO( v_conn, v_email_server);
IF 250 = v_reply.code THEN
b_connected := TRUE;
EXIT;
END IF;
EXCEPTION
WHEN OTHERS THEN
DBMS_LOCK.SLEEP (SLP);
END;
END LOOP;
IF b_connected = FALSE THEN
p_stat := 03;
DBMS_OUTPUT.PUT_LINE(SQLERRM ||' '|| p_stat);
END IF;
v_reply := UTL_SMTP.MAIL(v_conn, v_sender);
IF 250 != v_reply.code THEN
p_stat := 04;
DBMS_OUTPUT.PUT_LINE(SQLERRM ||' '|| p_stat);
END IF;
v_reply := UTL_SMTP.RCPT(v_conn, RECPT);
IF 250 != v_reply.code THEN
p_stat := 05;
DBMS_OUTPUT.PUT_LINE(SQLERRM ||' '|| p_stat);
END IF;
UTL_SMTP.OPEN_DATA ( v_conn);
v_message := 'Sample Email This is an auto generated mail. Please DO NOT reply TO this mail.'||CHR(10);
v_msg := 'Date: '|| TO_CHAR( SYSDATE, 'Mon DD yy hh24:mi:ss' )
|| CRLF || 'From: ' || v_sender
|| CRLF || 'Subject: ' || 'Sample file'
|| CRLF || 'To: ' || RECPT
|| CRLF || 'Mime-Version: 1.0'
|| CRLF || 'Content-Type: multipart/mixed; boundary="DMW.Boundary.605592468"' || CRLF ||''
|| CRLF || v_message
|| CRLF ||''
|| CRLF ||'--DMW.Boundary.605592468'
|| CRLF ||'Content-Type: text/plain; NAME="v_message.txt"; charset=US-ASCII'
|| CRLF ||'Content-Disposition: inline; filename="v_message.txt"'
|| CRLF ||'Content-Transfer-Encoding: 7bit' || CRLF || ''
|| CRLF || v_message || CRLF || CRLF || CRLF;
UTL_SMTP.WRITE_DATA(v_conn,v_msg);
/***** Prepare the attachment to be sent *****/
v_Msg := CRLF || '--DMW.Boundary.605592468'
|| CRLF || 'Content-Type: application/octet-stream; NAME="' || pFileName || '"'
|| CRLF || 'Content-Disposition: attachment; filename="' || pFileName || '"'
|| CRLF || 'Content-Transfer-Encoding: 7bit' || CRLF || CRLF;
UTL_SMTP.WRITE_DATA (v_conn, v_msg);
LOOP
BEGIN
UTL_FILE.GET_LINE(v_file_handle, v_line);
EXCEPTION
WHEN NO_DATA_FOUND THEN
EXIT;
END;
v_msg := '*** truncated ***' || CRLF;
v_msg := v_line || CRLF;
UTL_SMTP.WRITE_DATA ( v_conn, v_msg );
END LOOP;
UTL_FILE.FCLOSE(v_file_handle);
v_msg := CRLF;
UTL_SMTP.WRITE_DATA ( v_conn, v_msg );
v_msg := CRLF || '--DMW.Boundary.605592468--' || CRLF;
UTL_SMTP.WRITE_DATA ( v_conn, v_msg );
UTL_SMTP.CLOSE_DATA( v_conn );
UTL_SMTP.QUIT( v_conn );
EXCEPTION
WHEN OTHERS THEN
p_stat := 06;
END;
I'm not sure why my PDF is getting cut off towards the end, any help would be much appreciated.
Thank you very much.

Answer 1

Hi,
I managed to make it work, I changed the attach_base64 as per your recommendations but made my own slight change :-
PROCEDURE attach_base64_fromfile
(conn IN OUT NOCOPY utl_smtp.connection,
                    filename IN VARCHAR2,
floc IN VARCHAR2,
               mime_type IN VARCHAR2 DEFAULT 'application/octet',
                    inline IN BOOLEAN DEFAULT TRUE,
                    last IN BOOLEAN DEFAULT FALSE) IS
i PLS_INTEGER;
len PLS_INTEGER;
fh Utl_File.File_Type;
buf raw(32767);
BEGIN
begin_attachment(conn, mime_type, inline, filename, 'base64');
fh := Utl_File.Fopen (
location => floc,
filename => filename,
open_mode => 'r');
BEGIN
Utl_File.Get_Raw (
file => fh,
buffer => buf);
i := 1;
len := utl_raw.LENGTH(buf);
WHILE (i < len) LOOP
IF (i + MAX_BASE64_LINE_WIDTH < len) THEN
utl_smtp.write_raw_data(conn, utl_encode.base64_encode(buf));
utl_smtp.write_data(conn, utl_tcp.CRLF);
END IF;
i := i + MAX_BASE64_LINE_WIDTH;
END LOOP;
EXCEPTION
WHEN no_data_found THEN NULL;
END;
Utl_File.Fclose ( file => fh );
end_attachment(conn, LAST);
END;
and created another procedure to call send_mail.attach_base64_fromfile :-
CREATE OR REPLACE PROCEDURE send_email_attachment IS
conn utl_smtp.connection;
BEGIN
conn := Send_Mail.begin_mail(
sender => '[email protected]', -- sender email address
recipients => '[email protected]', -- recipient email address
subject => 'Attachment Test',
mime_type => Send_Mail.MULTIPART_MIME_TYPE);
send_mail_vv.attach_base64_fromfile(
conn => conn,
filename => 'test.pdf', -- file name
floc => 'TEST', -- file location
mime_type => 'application/octet',
inline => TRUE);
Send_Mail.end_attachment( conn => conn );
Send_Mail.end_mail( conn => conn );
END;
Thanks for all your help.