Procedimiento para enviar correos electrónicos desde la misma Base de Datos

CREATE     PROCEDURE [dbo].[sp_sendEmail]
(
    @cfgSMTPServer varchar(100),
    @cfgMail varchar(100),
    @cfgPwd varchar(100),
    @cfgPort varchar(5),
    @De varchar(100) ,
    @Para varchar(8000) ,
    @Titulo varchar(100)=" ",
    @Mensaje varchar(8000) =" ",
    @Attachment VARCHAR(1000) = " ",
    @Query VARCHAR(8000)= " "
)
AS
    set @De = 'Aqui va el titulo por default'
    Declare @Correo int
    Declare @proc int
    Declare @Dir varchar(500)
    Declare @DirUse varchar(500)
   
    SET @Dir = 'Configuration.fields("'
    SET @Dir = @Dir + 'http://schemas.microsoft.com/'
    SET @Dir = @Dir + 'cdo/configuration/'
   
    EXEC @proc = sp_OACreate 'CDO.Message', @Correo OUT
    SET @DirUse = @Dir + 'sendusing").Value'
    EXEC @proc = sp_OASetProperty @Correo, @DirUse,'2'
   

    if @proc <> 0
    begin
        print 'error'
    end
    --Servidor SMTP
   
    SET @DirUse = @Dir + 'smtpserver'+'").Value'
    EXEC @proc = sp_OASetProperty @Correo, @DirUse, @cfgSMTPServer
   
    if @proc <> 0
    begin
        RAISERROR('Error enviando correo 1',15,1)
        RETURN
    end
    -- Puerto normalmente el 25
    SET @DirUse = @Dir + 'smtpserverport").Value'
    EXEC @proc = sp_OASetProperty @Correo, @DirUse, @cfgPort
   
    if @proc <> 0
    begin
        RAISERROR('Error enviando correo 2',15,1)
        RETURN
    end
    -- Autenticacion, para usar cuenta y contraeña
   
    SET @DirUse = @Dir + 'smtpauthenticate").Value'
    EXEC @proc = sp_OASetProperty @Correo, @DirUse, '1'


    -- Cuenta
    SET @DirUse = @Dir + 'sendusername").Value'
    EXEC @proc = sp_OASetProperty @Correo, @DirUse, @cfgMail
   
    -- Contraseña
   
    SET @DirUse = @Dir + 'sendpassword").Value'
    EXEC @proc = sp_OASetProperty @Correo, @DirUse, @cfgPwd
   
    if @proc <> 0
    begin
        RAISERROR('Error enviando correo 3',15,1)
        RETURN
    end
    -- Autenticac
    -- Adjuntar Archivo
    CREATE TABLE #FileExists (FileExists int, FileIsDir int, ParentDirExists int)
   
    IF @Attachment <> ' '
    BEGIN
        declare @lcContAttach int
        set @lcContAttach = 0
        declare @StrEnd INT
        DECLARE @lcAttach VARCHAR(100)
        WHILE isnull(len(@Attachment),0) > 0
        BEGIN
            SELECT @StrEnd = CASE charindex(';', @Attachment)
                    WHEN 0 THEN len(@Attachment)
                    ELSE charindex(';', @Attachment) - 1
                    END
            SELECT @lcAttach = substring(@Attachment, 1, @StrEnd)
            SELECT @Attachment = substring(@Attachment, @StrEnd+2, len(@Attachment))
       

           
            DELETE #FileExists
            INSERT #FileExists
            EXEC master..xp_fileexist @lcAttach
           
            IF NOT EXISTS (SELECT * FROM #FileExists WHERE FileExists = 1)
            BEGIN
                RAISERROR ('El archivo no existe.', 16, 1,@lcAttach)
                RETURN 1
            END
           
            EXEC @proc = sp_OAMethod @Correo, 'AddAttachment', NULL, @lcAttach
            IF @proc <> 0
            BEGIN
                SET @lcContAttach = @lcContAttach + 1
            ENd

        END
        PRINT 'Archivo(s) adjuntado(s): ' +LTRIM(RTRIM(str(@lcContAttach)))
    END
    --Fin adjuntar Archivo
   
    --Consulta HTML
    if @Query <> ' '
    begin
        declare @Columns varchar(8000)
           declare @ColHeader varchar(8000)
           Declare @SqlCmd varchar(8000)
           Declare @HTMLBody varchar(8000)
        -- drop temporary tables used.
        IF EXISTS (SELECT * FROM tempdb.dbo.sysobjects WHERE name = '##TEMPhtml1')
        DROP TABLE ##TEMPhtml1
        IF EXISTS (SELECT * FROM tempdb.dbo.sysobjects WHERE name = '##TEMPhtml2')
        DROP TABLE ##TEMPhtml2
       
        -- prepare query
        set @SqlCmd = 'select * into ##tempHTML1 from (' + @Query + ') as t1'
        execute (@SqlCmd)
       
        --Prepare columns details
        SELECT @columns =
            COALESCE(@columns + ' + ''</td><td>'' + ', '') +
            'RTrim(convert(varchar(100),isnull(' + column_name +','' '')))'
            FROM tempdb.information_schema.columns
            where table_name='##tempHTML1'
           
        --Prepare column Header
        set @colHeader = '<tr bgcolor=#FAAC58 align=Left>'
        SELECT @colHeader = @colHeader + '<td><b>' + column_name + '</b></td>'
        FROM tempdb.information_schema.columns where table_name='##tempHTML1'
        set @colHeader=@colHeader + '</tr>'
       
        --prepare final output
        set @SqlCmd =
            'Select ''<tr><td>'' + ' +
            @columns +
            ' ''</td></tr> '' into ##tempHTML2 from ##tempHTML1 '
        execute( @SqlCmd)
           
        --set @finalhtmlout=
        set @HtmlBody =
            ' <html> <body><style type="text/css" media="all"> ' +
            'table { margin-bottom: 2em; border-collapse: collapse } ' +
            'td,th {border= 1 solid #999; padding: 0.2em 0.2em; font-size: 12;} ' +
            '</style> <table width="100%"> ' +
            @colHeader
       
        select @HtmlBody = @HtmlBody + [</td></tr>]
        from ##tempHTML2
       
        set @HtmlBody = @HtmlBody + ' </table></body></htmL>'
   
        --EXEC @proc = sp_OASetProperty @Correo, 'HTMLBody',  @HtmlBody
        set @Mensaje = @HtmlBody
        -- drop temporary tables used.
        IF EXISTS (SELECT * FROM tempdb.dbo.sysobjects WHERE name = '##TEMPhtml1')
        DROP TABLE ##TEMPhtml1
        IF EXISTS (SELECT * FROM tempdb.dbo.sysobjects WHERE name = '##TEMPhtml2')
        DROP TABLE ##TEMPhtml2   
    end
    --Fin Consulta
   
    -- Con esto grabas la configuracion
    EXEC @proc = sp_OAMethod @Correo, 'Configuration.Fields.Update', null
   
   
    -- Metes los parametros
    EXEC @proc = sp_OASetProperty @Correo, 'To', @Para
    EXEC @proc = sp_OASetProperty @Correo, 'From', @De
    EXEC @proc = sp_OASetProperty @Correo, 'Subject', @Titulo
   
    if @proc <> 0
    begin
        RAISERROR('Error enviando correo 4',15,1)
        RETURN
    end
    -- Autenticac
    -- Puedes usar 'HTMLBody' o 'Textbody'
   
    EXEC @proc = sp_OASetProperty @Correo, 'HTMLBody', @Mensaje
   
    if (@proc <> 0 )
    begin
        RAISERROR('Error enviando correo HTML',15,1)
        RETURN
    end
    -- Autenticac
    -- Aqui mandas el mensaje
    EXEC @proc = sp_OAMethod @Correo, 'send',NULL
   
    -- Por si hay error
    Declare @iMsg int
    Declare @hr int
    Declare @source varchar(255)
    Declare @description varchar(500)
    Declare @output varchar(1000)
    IF ( @proc <> 0 )
    BEGIN
        IF @proc <>0
        BEGIN
            EXEC @proc = sp_OAGetErrorInfo NULL, @source OUT, @description OUT
            IF @proc = 0
            BEGIN
                SELECT @output = ' Source: ' + @source
                PRINT @output
                SELECT @output = ' Description: ' + @description
                PRINT @output
            END
            ELSE
            BEGIN
                PRINT ' sp_OAGetErrorInfo failed.'
                RETURN
            END
        END
    -- Limpia el objeto
        EXEC @proc = sp_OADestroy @Correo
        RAISERROR('Error enviando correo last',15,1)
        RETURN
    END
   
    PRINT 'Correo enviado satisfactoriamente'
    -- Limpia el objeto
    EXEC @proc = sp_OADestroy @Correo

/*

Es necesario crear este procedimiento en la base de datos

master . Ejemplo de implementación:

exec master.dbo.sp_sendEmail
            @cfgSMTPServer = 'correoweb.misupercito.com.mx',
            @cfgMail = 'correo@misupercito.com.mx', --Este correo es el emisor
            @cfgPwd = 'tupass',
            @cfgPort = '25', --Este es el puerto normalmente usado
            @De = 'saig.dap@campeche.gob.mx', --Es lo que aparecera como emisor, puede ser dif al @cfgMail
            @Para=@lcMails,-- Correo Receptor (Clientes, empleados etc..)
            @Titulo = 'Felicidades por tu cumpleaños', '' --Titulo del mensje
            @mensaje = @lcMSG,-- 'Mensaje'
            @Attachment = ' ',--Sin hay archivos adjuntos
            @Query ='select * from midb.dbo.mitabla'--Si deseas enviar una consulta, ten en cuenta que se ejecuta el store en Master

 Puedes costumizarlo a tu gusto...

*/