ENVIAR E-MAIL A PARTIR DO FORMS

[SPECIALIZED]

Pessoal, boa tarde !
Preciso criar uma rotina para enviar um texto com dados de notas fiscais para um cliente, quero passar como parametro o endereço eletronico, assunto e o texto. Alguém já fez isso e pode me ajudar ?

Desde já agradeço

[Trevisolli]

Brother,

Dá uma olhada no link abaixo e veja se lhe ajuda:
http://glufke.net/oracle/viewtopic.php? ... ht=utlmail

Caso não seja isso, dê uma procurada por MAIL aqui no fórum que irá encontrar exemplos interessantes.

[SPECIALIZED]

Obrigado Trevisolli, vou tentar fazer o que o Luciano Alvarenga postou.

Abraço

[SPECIALIZED]

Tentei usar a rotina do Luciano Alvarenga e não deu certo, apontou exatamente o mesmo erro que deu com ele ORA-29278.
Será que o DBA tem que habilitar alguma função no Banco ???

A rotina que usei foi a seguinte:

Selecionar tudo

DECLARE 
  v_FromAddr VARCHAR2(50) := :EMAIL_BLK.ENDERECO_ELETRONICO ; 
  v_ToAddr VARCHAR2(50) := :EMAIL_BLK.ENDERECO_ELETRONICO; 
  v_Message VARCHAR2(5000); 
  v_MailHost VARCHAR2(50) := '192.168.10.180:25'; 
  v_MailConnection UTL_SMTP.Connection; 
BEGIN 
  -- Message to be sent.  The message fields (from, subject, etc.) 
  -- should be separated by carriage returns, which is CHR(10) on 
  -- most systems. 
  v_MailConnection := UTL_SMTP.OPEN_CONNECTION(v_MailHost,25);
  --
  v_Message := 
    'From: Teste'|| CHR(10) || 
    'Subject: ' || :EMAIL_BLK.DSC_ASSUNTO || CHR(10) || 
    'Essa mensagem foi enviada através de UTL_SMTP package.'; 

  -- Open the connection to the server. 
  v_MailConnection := UTL_SMTP.OPEN_CONNECTION(v_MailHost); 
  
  -- Using SMTP messages, send the email. 
  UTL_SMTP.HELO(v_MailConnection, v_MailHost); 
  UTL_SMTP.MAIL(v_MailConnection, v_FromAddr); 
  UTL_SMTP.RCPT(v_MailConnection, v_ToAddr); 
  UTL_SMTP.DATA(v_MailConnection, v_Message); 
  
  -- Close the connection. 
  UTL_SMTP.QUIT(v_MailConnection); 
END;

[SPECIALIZED]

Tentei usar a rotina do Luciano Alvarenga e não deu certo, apontou exatamente o mesmo erro que deu com ele ORA-29278.
Será que o DBA tem que habilitar alguma função no Banco ???

A rotina que usei foi a seguinte:

DECLARE
v_FromAddr VARCHAR2(50) := :EMAIL_BLK.ENDERECO_ELETRONICO ;
v_ToAddr VARCHAR2(50) := :EMAIL_BLK.ENDERECO_ELETRONICO;
v_Message VARCHAR2(5000);
v_MailHost VARCHAR2(50) := '192.168.10.180:25';
v_MailConnection UTL_SMTP.Connection;
BEGIN
-- Message to be sent. The message fields (from, subject, etc.)
-- should be separated by carriage returns, which is CHR(10) on
-- most systems.
v_MailConnection := UTL_SMTP.OPEN_CONNECTION(v_MailHost,25);
--
v_Message :=
'From: Teste'|| CHR(10) ||
'Subject: ' || :EMAIL_BLK.DSC_ASSUNTO || CHR(10) ||
'Essa mensagem foi enviada através de UTL_SMTP package.';

-- Open the connection to the server.
v_MailConnection := UTL_SMTP.OPEN_CONNECTION(v_MailHost);

-- Using SMTP messages, send the email.
UTL_SMTP.HELO(v_MailConnection, v_MailHost);
UTL_SMTP.MAIL(v_MailConnection, v_FromAddr);
UTL_SMTP.RCPT(v_MailConnection, v_ToAddr);
UTL_SMTP.DATA(v_MailConnection, v_Message);

-- Close the connection.
UTL_SMTP.QUIT(v_MailConnection);
END;