Script para envio de e-mails

[KeenOnOracle]

Pessoal,


alguém tem um exemplo de uma procedure que envia e-mails automaticos pelo oracle de um arquivo .log de um backup Oracle.

Por exemplo, agendei varios exports para meu DB, todo dia ele faz. por isso queria todo dia pegar o arquivo de log dessa exportação e enviar automaticamente ao meu email..

alguém tem um script desse?

valeu

Fernando

[dr_gori]

Eu não tenho esse script, mas eu acho que o ideal nesse caso é você criar um SHELL que faça o serviço e agendar ele no crontab. (isso se for *ix)

[Trevisolli]

Brothers,

Até achei um script, que coloquei abaixo, porém, não tive a oportunidade de testá-lo aqui.
Segue o código para análise:

SEND_ATTACH_RAW
Represents the SEND Procedure overloaded for RAW attachments

Selecionar tudo

utl_mail.send_attach_raw (
sender        IN VARCHAR2 CHARACTER SET ANY_CS,
recipients    IN VARCHAR2 CHARACTER SET ANY_CS,
cc            IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT NULL,
bcc           IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT NULL,
subject       IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT NULL,
message       IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT NULL,
mime_type     IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT 'text/plain;
 charset=us-ascii',
priority      IN PLS_INTEGER DEFAULT 3,
attachment    IN RAW,
att_inline    IN BOOLEAN DEFAULT TRUE,
att_mime_type IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT
 'text/plain; charset=us-ascii',
att_filename  IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT NULL); 
--the SMTP_OUT_SERVER parameter must be set
conn / as sysdba

ALTER SYSTEM SET smtp_out_server = 'smtp.drizzle.com' SCOPE=BOTH;

conn pm/pm

UPDATE online_media
SET product_text = 'This is a UTL_MAIL demo';
COMMIT;

CREATE OR REPLACE PROCEDURE Mail_Attach (fname VARCHAR2) IS
 vInHandle utl_file.file_type;
 rfile     RAW(32767);
 flen      NUMBER;
 bsize     NUMBER;
 ex        BOOLEAN;

 vSender   VARCHAR2(30) := 'mailsys@psoug.org';
 vSubj     VARCHAR2(50) := 'April PSOUG News';
 vMesg     VARCHAR2(4000);
 vMType    VARCHAR2(30) := 'text/plain; charset=us-ascii';

 CURSOR mcur IS
 SELECT per_h_email
 FROM psoug.person
 WHERE per_ok2_email = 'Y'
 AND per_h_email IS NOT NULL; 
BEGIN
  vMesg := 'Please print and complete attachment';

  SELECT utl_raw.cast_to_raw(product_text)
  INTO rf
  FROM online_media
  WHERE rownum = 1;

  utl_file.fgetattr('ORALOAD', fname, ex, flen, bsize);
  vInHandle := utl_file.fopen('ORALOAD', fname, 'R');
  utl_file.get_raw(l_output, rfile, flen);
  utl_file.fclose(vInHandle);

  FOR mrec IN mcur
  LOOP
    utl_mail.send_attach_raw(
      sender => vSender, 
      recipients => mrec.per_h_email,
      subject => vSubj, 
      message => vMesg,
      attachment => rfile,
      att_inline => FALSE,
      att_filename => fname);
  END LOOP;
END;
/  

SEND_ATTACH_VARCHAR2
Represents the SEND Procedure overloaded for VARCHAR2 attachments

Selecionar tudo

utl_mail.send_attach_varchar2(
sender        IN VARCHAR2 CHARACTER SET ANY_CS,
recipients    IN VARCHAR2 CHARACTER SET ANY_CS,
cc            IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT NULL,
bcc           IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT NULL,
subject       IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT NULL,
message       IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT NULL,
mime_type     IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT 'text/plain;
 charset=us-ascii',
priority      IN PLS_INTEGER DEFAULT 3,
attachment    IN VARCHAR2 CHARACTER SET ANY_CS,
att_inline    IN BOOLEAN DEFAULT TRUE,
att_mime_type IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT
 'text/plain; charset=us-ascii,
att_filename  IN VARCHAR2 CHARACTER SET ANY_CS DEFAULT NULL); 
Same as SEND_ATTACH_RAW except that the attachment must be an ASCII text file. 

Fonte: http://www.psoug.org/library.html

[Toad]

Eu usei o do link abaixo e funcionou ok:

http://glufke.net/oracle/viewtopic.php? ... viar+email