Hola, prueba con esto. Tienes que tener ASP Mail instalado en el servidor.

CREATE PROCEDURE EnvioCorreo
@DireccionRemitente varchar(100),
@DireccionDestinatario varchar(100),
@Asunto varchar(200),
@Mensaje varchar(8000)
AS
BEGIN
SET NOCOUNT ON

DECLARE
@ObjCorreo integer, -- Referencia a objeto
@CodigoRes integer,
@SMTPHost varchar(200)

EXEC @CodigoRes = sp_OACreate \'Persits.MailSender\', @ObjCorreo OUTPUT

-- Si el objeto está disponible, procede al envío
IF @CodigoRes = 0
BEGIN
SELECT @SMTPHost = MailHost
FROM Sistema

EXEC @CodigoRes = sp_OASetProperty @ObjCorreo, \'Host\', @SMTPHost
EXEC @CodigoRes = sp_OASetProperty @ObjCorreo, \'FromName\', \'SGCOL\'
EXEC @CodigoRes = sp_OASetProperty @ObjCorreo, \'From\', @DireccionRemitente

EXEC @CodigoRes = sp_OAMethod @ObjCorreo, \'AddAddress\', NULL, @DireccionDestinatario
EXEC @CodigoRes = sp_OASetProperty @ObjCorreo, \'Subject\', @Asunto
EXEC @CodigoRes = sp_OASetProperty @ObjCorreo, \'Body\', @Mensaje

EXEC @CodigoRes = sp_OAMethod @ObjCorreo, \'Send\', NULL

EXEC sp_OADestroy @ObjCorreo
END

SET NOCOUNT OFF
END

Responder

Re: Re: como enviar correos electronicos en sql server

Enviado por Francis A el día 30 de octubre de 2007

Hola! perodona el abuso! pero no hay otra opcion? lo que pasa es que tengo problemas con el servidor

 

Responder