Home

Enviar Email usando Cdonts com SQL SERVER 2000 ou 2005

CREATE  PROCEDURE ENVIA_EMAIL (
   @FROM   VARCHAR(70),    --DE
  @TO   VARCHAR(70) ,    --PARA
  @SUBJECT VARCHAR(100),    --ASSUNTO
    @CC   VARCHAR(100)= NULL,    --COPIA
 @BCc  VARCHAR(100)= NULL,    --COPIA OCULTA
    @BODY  VARCHAR(2000),    --CORPO
  @ARQUIVO VARCHAR(100) = NULL) --ANEXO
AS

/*
 Autor: Paulo Rocha
 Data: 22/04/2006
 Descrição: Procedure que passados os parametros envia email uzando o componente CDONTS
 Atualizado por: -
 Data: -
 Atualização: -
*/
/*
IMPORTANTE: SQL SERVER 2000 PRECISA ESTAR COM SP4 APLICADO
*/
--De,Para,Assunto,Copia,Copia Oculta,Texto,Anexo
--EXEC ENVIA_EMAIL 'fmanes@recognition.com.br','fmanes@recognition.com.br','ASSUNTO',NULL, NULL, '<b>Teste de envio de e-mail</b>', NULL

 DECLARE @OBJEMAIL INT
 DECLARE @RESULTADO INT
 DECLARE @CAMINHO VARCHAR(100)
 DECLARE @DESCRICAO VARCHAR(100)
 DECLARE @SEND INT

 EXEC @RESULTADO = SP_OACREATE 'CDONTS.NewMail', @OBJEMAIL OUTPUT
 IF @RESULTADO <> 0
  GOTO ERRO
  
 
 EXEC @RESULTADO = SP_OASETPROPERTY @OBJEMAIL, 'From', @FROM
 IF @RESULTADO <> 0
  GOTO ERRO

 
 EXEC @RESULTADO = SP_OASETPROPERTY @OBJEMAIL, 'To', @TO
 IF @RESULTADO <> 0
  GOTO ERRO
 
 -- Se for 0 vai ser em htm se for 1 vai ser em txt
 EXEC @RESULTADO = SP_OASETPROPERTY @OBJEMAIL, 'BodyFormat', 0
 IF @RESULTADO <> 0
  GOTO ERRO

 -- Se for 0 vai ser em htm se for 1 vai ser em txt
 EXEC @RESULTADO = SP_OASETPROPERTY @OBJEMAIL, 'MailFormat', 0
 IF @RESULTADO <> 0
  GOTO ERRO
 
 EXEC @RESULTADO = SP_OASETPROPERTY @OBJEMAIL, 'Subject', @SUBJECT
 IF @RESULTADO <> 0
  GOTO ERRO
 
 EXEC @RESULTADO = SP_OASETPROPERTY @OBJEMAIL, 'BODY', @BODY
 IF @RESULTADO <> 0
  GOTO ERRO

 IF @CC IS NOT NULL
  BEGIN
    EXEC @RESULTADO = sp_OASetProperty @OBJEMAIL, 'CC', @CC
    IF @RESULTADO <> 0
   GOTO ERRO
  END
 
 IF @BCc IS NOT NULL
  BEGIN
    EXEC @RESULTADO = sp_OASetProperty @OBJEMAIL, 'BCC', @BCc
    IF @RESULTADO <> 0
   GOTO ERRO
  END
 
 IF @ARQUIVO IS NOT NULL
  BEGIN
    EXEC @RESULTADO = sp_OAMethod @OBJEMAIL, 'AttachFile', NULL, @ARQUIVO
    IF @RESULTADO <> 0
   GOTO ERRO
  END
 
 EXEC @RESULTADO = sp_OAMethod @OBJEMAIL, 'Send', NULL
 IF @RESULTADO <> 0
  GOTO ERRO
 
 --Aqui é onde faz toda verificação de erro
 ERRO:
 IF @RESULTADO <> 0
  BEGIN
   EXEC SP_OAGETERRORINFO @OBJEMAIL, @CAMINHO OUTPUT, @DESCRICAO OUTPUT
   SELECT @OBJEMAIL AS OBJETO, @CAMINHO AS CAMINHO, @DESCRICAO AS DESCRICAO   
  END

EXEC @RESULTADO = sp_OADestroy @OBJEMAIL
RETURN
GO

Imprimir

Enviar para um amigo

Dê sua opinião