Configurar correo con sql

Configurar correo sin SQLMail

Publicado por Espino316 en 4/01/2009 10:18:00 AM . miércoles 1 de abril de 2009
Etiquetas: SQL SERVER
Enviar correos desde SQL SERVER 2000 sin utilizar SQLMail esposible. Se logra utilizando CDONTS.

Lo que tenemos que hacer, es crear un objeto CDO.Message, confirgurar las propiedades tal y como lo haríamos si lo fueramos a utilizar desde una página ASP yenviar el mensaje. El siguiente codigo fuente comentarizado detalla el proceso de configuración y envío.

*** Nota: Tenemos la limitante de CDONTS, máximo 4000 caracteres en el mensaje.
Codigofuente
CREATE PROCEDURE usp_EnviarCorreo
(
@De varchar(100),
@Para varchar(100),
@Titulo varchar(100),
@Mensaje varchar(4000),
@TipoMensaje varchar(50) -- 'HTMLBody' ó 'TextBody'
)
AS

DECLARE@ObjMensaje int,
@RC int,
@Fuente varchar(255),
@Descripcion varchar(500),
@MsjSalida varchar(1000),
@Servidor varchar(100),
@Puerto varchar(10),
@Autenticar char(1),
@Usuario varchar(100),@Password varchar(100)

-- Aqui ahi que cambiar los valores por los reales de la cuenta a usar

SET @Autenticar = '1' -- Manda a autentificarse con una cuenta y password
SET @Servidor ='TuServidor' -- Nombre de host o IP
SET @Usuario = 'TuUsuario' -- Nombre de usuario, en los servidores POP puede ser la direccion de correo completa
SET @Password = 'TuPassword' -- Password de la cuenta decorreo
SET @Puerto = 'TuPuerto' -- Puerto de correo, normalmente es el 25, aunque esto puede cambiar dependiendo del ISP

-- Crear el objeto CDO.Message
EXEC @RC = sp_OACreate 'CDO.Message',@ObjMensaje OUT

-- Configurar el SMTP remoto
EXEC @RC = sp_OASetProperty @ObjMensaje, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value','2'
-- Set: ServidorEXEC @RC = sp_OASetProperty @ObjMensaje, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value', @Servidor
-- Set: Puerto
EXEC @RC = sp_OASetProperty @ObjMensaje,...