Como enviar SMS pelo oracle

[wallacerclemente]

Informações do Ambiente:
* Versão do Oracle: 10g
* Sistema Operacional: Windows 2003 server

Oi a todos, estou precisando que o Oracle envie SMS para uma lista de celulares quando houver qualquer problema. Vocês pode me ajudar?

Desde já obrigado.

Wallace Ribeiro Clemente
ThyssenKrupp CSA Siderúrgica do Atlântico

[diegopedrao]

Eu sei enviar para nextel, senão você terá que contratar serviço para enviar para outras operadoras.... segue

Selecionar tudo

                   begin
                     ENVIAR_EMAIL_AUTH('smtp.site.com.br', 'site@site.com.br', 'senha', '551155555555@page.nextel.com.br', 'site@gmail.com', 'Assunto', 'Ref.:'||DATA_INICIAL||' não exec');
                   end; 

Proc

Selecionar tudo

CREATE OR REPLACE PROCEDURE NFE.ENVIAR_EMAIL_AUTH(P_HOST    IN VARCHAR2,  
                                              P_USUARIO IN VARCHAR2,  
                                              P_SENHA   IN VARCHAR2,  
                                              P_TO      IN VARCHAR2,  
                                              P_COPIA   IN VARCHAR2,  
                                              P_SUBJECT IN VARCHAR2,  
                                              P_MESSAGE IN VARCHAR2) IS 

MAIL_CONN   UTL_SMTP.CONNECTION;  
V_HEADER    VARCHAR2(4000);  
CRLF        VARCHAR2(2) := CHR(13) || CHR(10); -- quebra de linha  

BEGIN 

  -- Abre a conexão  

  MAIL_CONN   := UTL_SMTP.OPEN_CONNECTION(P_HOST, 25);  
  UTL_SMTP.HELO(MAIL_CONN, P_HOST);  
  
 -- Faz a autenticação para envio de mensagem  
  UTL_SMTP.COMMAND(MAIL_CONN, 'AUTH LOGIN');  
  UTL_SMTP.COMMAND(MAIL_CONN, UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW(P_USUARIO))));  
  UTL_SMTP.COMMAND(MAIL_CONN, UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW(P_SENHA))));  

  -- Prepara o cabeçalho de  
  V_HEADER := 'Date:'    || TO_CHAR(SYSDATE, 'dd Mon yy hh24:mi:ss') || CRLF ||  

  'From:'    || p_USUARIO || CRLF ||  
  'Subject:' || p_SUBJECT || CRLF ||  
  'To:'      || p_TO      || CRLF ||  
  'Cc:'      || p_COPIA   || CRLF ||  
  CRLF || CRLF || 
  p_MESSAGE;  
 
  --  

  UTL_SMTP.MAIL(MAIL_CONN, '<' || P_USUARIO || '>');  
  UTL_SMTP.RCPT(MAIL_CONN, '<' || P_TO || '>');  
  UTL_SMTP.DATA(MAIL_CONN, V_HEADER);  
 
 -- Fecha a conexão  

  UTL_SMTP.QUIT(MAIL_CONN);  
END ENVIAR_EMAIL_AUTH;
/

Att,

Diego Monteiro