Hw to use rcpt to and auth command in UTL SMTP

Question

hi
can anyone provide me syntax for that or sample code?

Answer 1

CREATE OR REPLACE PROCEDURE SR3PMAIL ( P_MAILHOST IN VARCHAR2,
P_SENDER IN VARCHAR2,
P_RECIPIENT IN VARCHAR2,
P_CC IN VARCHAR2,
P_SUBJECT IN VARCHAR2,
P_MENSAG IN VARCHAR2 ) IS
-- APLICACAO...........UTILITARIOS --
-- SISTEMA.............SQL@REPLICATOR VERSAO 4.3 --
-- VERSAO..............4.3.1(MARÇO 2003) --
-- OBSERVACOES: --
-- AUTHOR..............RENAN MEDEIROS --
-- DATA................17/06/2004 - CODIFICAÇÃO --
-- 28/06/2006 - BUG - NAO ENVIAVA CC(COM COPIA) --
SR3$VER VARCHAR2(50) := '==>V5.0.1,28/06/2006-10:40,RENAN<==';
SR3NAM VARCHAR2(15) := 'SQL@Replicator';
SR3VER VARCHAR2(3) := '501'; /* VERSAO */
MENSAGEM VARCHAR2(30000) := P_MENSAG;
MENSAGEM2 VARCHAR2(30000) := NULL;
MAIL_CONN UTL_SMTP.CONNECTION;
CRLF VARCHAR2(0002) := CHR(13) || CHR(10);
MESG VARCHAR2(4000) := NULL;
DESTINO VARCHAR2(2000) := NULL;
DESTINO2 VARCHAR2(2000) := NULL;
TAMANHO BINARY_INTEGER := 1;
POSINI BINARY_INTEGER := 1;
POSFIM BINARY_INTEGER := 1;
POSEND BINARY_INTEGER := 1;
BEGIN
MENSAGEM := NULL;
MENSAGEM2:= NULL;
MENSAGEM := P_MENSAG;
DESTINO2 := REPLACE(P_RECIPIENT,';',' ')||' ';
FOR I IN 1..LENGTH(DESTINO2)
LOOP
DESTINO2 := REPLACE(DESTINO2,' ',' ');
END LOOP;
MAIL_CONN := UTL_SMTP.OPEN_CONNECTION( P_MAILHOST, 25 );
UTL_SMTP.HELO( MAIL_CONN, P_MAILHOST );
UTL_SMTP.MAIL( MAIL_CONN, P_SENDER );
MESG:=
'FROM: <' || P_SENDER || '>' || CRLF ||
'SUBJECT: ' || P_SUBJECT || CRLF;
MESG := MESG||
'TO:' || NVL(P_RECIPIENT,' ') || CRLF;
MESG := MESG||
'CC:' || NVL(P_CC,' ') || CRLF;
-- SEPARA OS DESTINATARIOS
POSINI:=1;
POSFIM:=0;
POSEND:=INSTR(DESTINO2,' ',-1,1);
TAMANHO:=POSFIM-POSINI;
WHILE POSFIM < POSEND
LOOP
POSINI:=POSFIM+1;
POSFIM:=INSTR(DESTINO2,' ',POSINI,1);
TAMANHO:=POSFIM-POSINI;
DESTINO:=SUBSTR(DESTINO2,POSINI,TAMANHO);
UTL_SMTP.RCPT( MAIL_CONN, DESTINO);
END LOOP;
DESTINO2:=NULL;
DESTINO :=NULL;
IF P_CC IS NOT NULL
THEN DESTINO2 := REPLACE(P_CC,';',' ')||' ';
FOR I IN 1..LENGTH(DESTINO2)
LOOP
DESTINO2 := REPLACE(DESTINO2,' ',' ');
END LOOP;
POSINI:=1;
POSFIM:=0;
POSEND:=INSTR(DESTINO2,' ',-1,1);
TAMANHO:=POSFIM-POSINI;
WHILE POSFIM < POSEND
LOOP
POSINI:=POSFIM+1;
POSFIM:=INSTR(DESTINO2,' ',POSINI,1);
TAMANHO:=POSFIM-POSINI;
DESTINO:=SUBSTR(DESTINO2,POSINI,TAMANHO);
UTL_SMTP.RCPT( MAIL_CONN, DESTINO);
END LOOP;
END IF;
UTL_SMTP.OPEN_DATA( MAIL_CONN);
UTL_SMTP.WRITE_DATA( MAIL_CONN, MESG||CRLF);
WHILE LENGTH(MENSAGEM) > 2000
LOOP
UTL_SMTP.WRITE_DATA( MAIL_CONN, SUBSTR(MENSAGEM,1,2000));
MENSAGEM2 := SUBSTR(MENSAGEM,2001,LENGTH(MENSAGEM)-2000);
MENSAGEM := MENSAGEM2;
END LOOP;
UTL_SMTP.WRITE_DATA( MAIL_CONN, MENSAGEM||CRLF);
UTL_SMTP.CLOSE_DATA( MAIL_CONN);
utl_smtp.quit(mail_conn);
END SR3PMAIL;
SHOW ERRORS