Utl_smtp and problem with french language characters

Question

Hello,
I am using utl_smtp to send email.
Here is part of the proc:
First try:
mail_conn := utl_smtp.open_connection(mailhost, 25);
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, sender);
utl_smtp.rcpt(mail_conn, recipient);
utl_smtp.open_data(mail_conn);
utl_smtp.write_data(mail_conn, 'MIME-Version: 1.0' ||CHR(13)||
CHR(10)||'Content-Type: text/plain; charset=WE8ISO8859P1' ||
CHR(13)||CHR(10)|| 'Content-Transfer-Encoding: 8bit' || CHR(13)||CHR(10) || message);
utl_smtp.close_data(mail_conn);
utl_smtp.quit(mail_conn);
This gives the output:
.... adresse par element X doit etre ....
which is wrong. It should be:
.... adressé par élément X doit être ....
I then made the following modif:
mail_conn := utl_smtp.open_connection(mailhost, 25);
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, sender);
utl_smtp.rcpt(mail_conn, recipient);
utl_smtp.open_data(mail_conn);
/*This is the modif */
utl_smtp.write_data(mail_conn, 'MIME-version: 1.0' || utl_tcp.CRLF);
utl_smtp.write_data(mail_conn, 'Content-Type: text/plain; charset=WE8ISO8859P1'||utl_tcp.CRLF);
utl_smtp.write_data(mail_conn, 'Content-Transfer-Encoding: 8bit' ||utl_tcp.CRLF);
utl_smtp.write_raw_data(mail_conn,utl_raw.cast_to_raw(utl_tcp.CRLF || message));
/* end of modif */
utl_smtp.close_data(mail_conn);
utl_smtp.quit(mail_conn);
This gives the output:
FROM: [email protected]
SUBJECT: Demande pour XYZ
TO: [email protected]
.... adressé par élément X doit être ....
which is the intended result except for the FROM, SUBJECT and To.
Of course, I can make that disappear by tweaking the modif. However, I want to know why the original procedure is not working even though I followed the utl_smtp specs.
Note:
message := '
'FROM:'||V_SENDER||CHR(13)||CHR(10)||
               'SUBJECT:'||Demande pour XYZ ' ||CHR(13)||CHR(10)||
               'TO:'||V_COURRIEL||CHR(13)||CHR(10)||CHR(13)||CHR(10)||V_CORPS_MESSAGE;
Database:
NLS_CHARACTERSET : WE8ISO8859P1
NLS_LANGUAGE : FRENCH
NLS_NCHAR_CHARACTERSET : AL16UTF16
Base : Oracle9i Release 9.0.1.3.0
Thanks

Answer 1

Hello,
Issue was resolved.
==============================================
PROCEDURE Send_Mail (sender IN VARCHAR2,recipient IN VARCHAR2,message IN VARCHAR2, myheader IN varchar2) IS
mailhost VARCHAR2(50) :='mail.mystmpexample.com'; -- get host name;
mail_conn utl_smtp.connection ;
BEGIN
mail_conn := utl_smtp.open_connection(mailhost, 25);
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, sender);
utl_smtp.rcpt(mail_conn, recipient);
utl_smtp.open_data(mail_conn);
utl_smtp.write_data(mail_conn, myheader || CHR(13)||CHR(10));
utl_smtp.write_data(mail_conn, 'MIME-version: 1.0' || CHR(13)||CHR(10));
utl_smtp.write_data(mail_conn, 'Content-Type: text/plain; charset=WE8ISO8859P1'|| CHR(13)||CHR(10));
utl_smtp.write_data(mail_conn, 'Content-Transfer-Encoding: 8bit' || CHR(13)||CHR(10));
utl_smtp.write_data(mail_conn, CHR(13)||CHR(10));
utl_smtp.write_raw_data(mail_conn,utl_raw.cast_to_raw(message));
utl_smtp.close_data(mail_conn);
utl_smtp.quit(mail_conn);
EXCEPTION
WHEN OTHERS THEN
utl_smtp.quit(mail_conn);
RAISE_APPLICATION_ERROR(-20000,'Impossible d''envoyer le courrier du a l''erreur suivante : ' || SQLERRM);
END; -- procedure Send_Mail
==============================================
Please note that the line:
utl_smtp.write_data(mail_conn, CHR(13)||CHR(10));
is vey important since it is going to separate the header from the message itself. This will allow the message to come out alone in the email.
Variable myheader contains the From, To and Subject and each needs to be followed by CHR(13)||CHR(10
Thanks