Pesquisar na Comunidade

desenvolvi em PL / SQL uma procedure que envia email que está funcionando perfeitamente. Porém foi mudado o servidor de email para Gmail, que requer autenticação e o tipo de conexão é SSL. Poderiam me ajudar com essas alterações?A versão do banco de dados é o 11.CREATE OR REPLACE PROCEDURE PRC_JUN_SEND_MAIL(TO_NAME VARCHAR2,SUBJECT VARCHAR2,MESSAGE VARCHAR2)ISL_BODY VARCHAR2(32767);L_MAILHOST VARCHAR2(64) := ''smtp.gmail.com'';P_USERNAME_ VARCHAR2(50) := ''admin@jun.net'';P_PASSWORD_ VARCHAR2(50) := ''***********'';L_DE VARCHAR2(64) := ''Remetente'';L_FROM VARCHAR2(64) := ''admin@jun.net'';l_port VARCHAR(7) := ''587'';L_MAIL_CONN UTL_SMTP.CONNECTION;BEGINL_MAIL_CONN := UTL_SMTP.OPEN_CONNECTION(L_MAILHOST,l_port);Dbms_Output.Put_Line (''apos conectar'');UTL_SMTP.HELO(L_MAIL_CONN, L_MAILHOST);Dbms_Output.Put_Line (''hello'');UTL_SMTP.COMMAND (L_MAIL_CONN, ''AUTH LOGIN'');Dbms_Output.Put_Line (''AUTH LOGIN'');UTL_SMTP.COMMAND (L_MAIL_CONN, UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW(P_USERNAME_))));UTL_SMTP.COMMAND (L_MAIL_CONN, UTL_RAW.CAST_TO_VARCHAR2( UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW(P_PASSWORD_))));UTL_SMTP.MAIL(L_MAIL_CONN, L_FROM);UTL_SMTP.RCPT(L_MAIL_CONN, TO_NAME);UTL_SMTP.OPEN_DATA(L_MAIL_CONN);UTL_SMTP.WRITE_RAW_DATA( L_MAIL_CONN, UTL_RAW.CAST_TO_RAW(''FROM:'' ||L_DE||''<''|| L_FROM|| ''>'' || UTL_TCP.CRLF));UTL_SMTP.WRITE_RAW_DATA( L_MAIL_CONN, UTL_RAW.CAST_TO_RAW(''TO:'' ||TO_NAME||UTL_TCP.CRLF));UTL_SMTP.WRITE_RAW_DATA( L_MAIL_CONN, UTL_RAW.CAST_TO_RAW(''SUBJECT:'' ||SUBJECT||UTL_TCP.CRLF));UTL_SMTP.WRITE_RAW_DATA( L_MAIL_CONN, UTL_RAW.CAST_TO_RAW(''CONTENT-TYPE: TEXT/HTML; CHARSET=ISO-8859-1''||UTL_TCP.CRLF));UTL_SMTP.WRITE_DATA(L_MAIL_CONN, '' ''||UTL_TCP.CRLF);UTL_SMTP.WRITE_RAW_DATA(L_MAIL_CONN, UTL_RAW.CAST_TO_RAW(UTL_TCP.CRLF||MESSAGE));UTL_SMTP.CLOSE_DATA(L_MAIL_CONN);UTL_SMTP.QUIT(L_MAIL_CONN);END;