PL/SQL Mail Konu Başlığındaki Türkçe Karakter Sorunu Çözümü

 
 
DECLARE
   l_mailhost    VARCHAR2 (255)      := ':mail host';
   p_from        VARCHAR2 (255)      := ':gonderen mail adresi';
   p_recipient   VARCHAR2 (80)       := ':alici mail adresi';
   p_subject     VARCHAR2 (80)       := 'ığşçıü';
   vconn         UTL_SMTP.connection;
   crlf          VARCHAR2 (2)        := CHR (13) || CHR (10);
   i             NUMBER              := 1;
   p_body        VARCHAR2 (255)      := 'Deneme Maili';
BEGIN
   vconn := UTL_SMTP.open_connection (l_mailhost, get_smtp_port);
   UTL_SMTP.helo (vconn, l_mailhost);
   UTL_SMTP.mail (vconn, p_from);
   UTL_SMTP.rcpt (vconn, TRIM (p_recipient));
   UTL_SMTP.open_data (vconn);
   UTL_SMTP.write_data (vconn,
                        'Content-Type' || ': ' || 'text/html' || UTL_TCP.crlf
                       );
   UTL_SMTP.write_data (vconn,
                        'Content-Transfer-Encoding: 8bit' || UTL_TCP.crlf
                       );
   UTL_SMTP.write_data (vconn, 'From' || ': ' || p_from || UTL_TCP.crlf);
   UTL_SMTP.write_data
      (vconn,
          'Subject: '
       || ' =?iso-8859-9?Q?'
       || UTL_RAW.cast_to_varchar2
             (UTL_ENCODE.quoted_printable_encode
                                               (UTL_RAW.cast_to_raw (p_subject)
                                               )
             )
       || '?='
       || UTL_TCP.crlf
      );
   UTL_SMTP.write_data (vconn, UTL_TCP.crlf || p_body);
   UTL_SMTP.close_data (vconn);
   UTL_SMTP.quit (vconn);
   DBMS_OUTPUT.put_line ('Mail gonderildi');
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line ('Hata alındı:' || SQLERRM);
END;