(SQL Server) Send HTML Email with External CSS as Related Item

Demonstrates how to compose an HTML email with an external CSS file included as a related item and referenced by CID (Content-ID).

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    DECLARE @sTmp0 nvarchar(4000)
    --  This example requires the Chilkat Email API to have been previously unlocked.
    --  See Unlock Chilkat MailMan for sample code.

    --  The mailman object is used for sending and receiving email.
    DECLARE @mailman int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.MailMan', @mailman OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    --  Use your SMTP server hostname.  This example uses office365, but it could be any SMTP server..
    EXEC sp_OASetProperty @mailman, 'SmtpHost', 'outlook.office365.com'
    EXEC sp_OASetProperty @mailman, 'SmtpPort', 587
    EXEC sp_OASetProperty @mailman, 'StartTLS', 1

    --  Set the SMTP login/password
    EXEC sp_OASetProperty @mailman, 'SmtpUsername', 'OFFICE365-SMTP-LOGIN'
    EXEC sp_OASetProperty @mailman, 'SmtpPassword', 'OFFICE365-SMTP-PASSWORD'

    --  Create a new email object
    DECLARE @email int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Email', @email OUT

    EXEC sp_OASetProperty @email, 'Subject', 'HTML Email with embedded CSS'
    EXEC sp_OASetProperty @email, 'From', 'Chilkat Support <my-office365-user@mydomain.com>'
    EXEC sp_OAMethod @email, 'AddTo', @success OUT, 'Chilkat Support', 'support@chilkatsoft.com'

    DECLARE @sbCss int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.StringBuilder', @sbCss OUT

    DECLARE @bCrlf int
    SELECT @bCrlf = 1
    EXEC sp_OAMethod @sbCss, 'AppendLine', @success OUT, 'body {', @bCrlf
    EXEC sp_OAMethod @sbCss, 'AppendLine', @success OUT, '    background-color: powderblue;', @bCrlf
    EXEC sp_OAMethod @sbCss, 'AppendLine', @success OUT, '}', @bCrlf
    EXEC sp_OAMethod @sbCss, 'AppendLine', @success OUT, 'h1 {', @bCrlf
    EXEC sp_OAMethod @sbCss, 'AppendLine', @success OUT, '    color: blue;', @bCrlf
    EXEC sp_OAMethod @sbCss, 'AppendLine', @success OUT, '}', @bCrlf
    EXEC sp_OAMethod @sbCss, 'AppendLine', @success OUT, 'p {', @bCrlf
    EXEC sp_OAMethod @sbCss, 'AppendLine', @success OUT, '    color: red;', @bCrlf
    EXEC sp_OAMethod @sbCss, 'AppendLine', @success OUT, '}', @bCrlf

    --  It's possible to add a CSS file directly by calling AddRelatedFile.
    --  This example will add the CSS from a string.
    DECLARE @filenameInHtml nvarchar(4000)
    SELECT @filenameInHtml = 'styles.css'
    DECLARE @contentIdCss nvarchar(4000)
    EXEC sp_OAMethod @sbCss, 'GetAsString', @sTmp0 OUT
    EXEC sp_OAMethod @email, 'AddRelatedString', @contentIdCss OUT, @filenameInHtml, @sTmp0, 'utf-8'
    EXEC sp_OAGetProperty @email, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @mailman
        EXEC @hr = sp_OADestroy @email
        EXEC @hr = sp_OADestroy @sbCss
        RETURN
      END

    --  The src attribute for the image tag is set to the contentIdCss:
    DECLARE @sbHtml int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.StringBuilder', @sbHtml OUT

    EXEC sp_OAMethod @sbHtml, 'AppendLine', @success OUT, '<!DOCTYPE html>', @bCrlf
    EXEC sp_OAMethod @sbHtml, 'AppendLine', @success OUT, '<html>', @bCrlf
    EXEC sp_OAMethod @sbHtml, 'AppendLine', @success OUT, '<head>', @bCrlf
    EXEC sp_OAMethod @sbHtml, 'AppendLine', @success OUT, '  <link rel="stylesheet" href="cid:CONTENT_ID_CSS">', @bCrlf
    EXEC sp_OAMethod @sbHtml, 'AppendLine', @success OUT, '</head>', @bCrlf
    EXEC sp_OAMethod @sbHtml, 'AppendLine', @success OUT, '<body>', @bCrlf
    EXEC sp_OAMethod @sbHtml, 'AppendLine', @success OUT, '', @bCrlf
    EXEC sp_OAMethod @sbHtml, 'AppendLine', @success OUT, '<h1>This is a heading</h1>', @bCrlf
    EXEC sp_OAMethod @sbHtml, 'AppendLine', @success OUT, '<p>This is a paragraph.</p>', @bCrlf
    EXEC sp_OAMethod @sbHtml, 'AppendLine', @success OUT, '', @bCrlf
    EXEC sp_OAMethod @sbHtml, 'AppendLine', @success OUT, '</body>', @bCrlf
    EXEC sp_OAMethod @sbHtml, 'AppendLine', @success OUT, '</html>', @bCrlf

    DECLARE @numReplacements int
    EXEC sp_OAMethod @sbHtml, 'Replace', @numReplacements OUT, 'CONTENT_ID_CSS', @contentIdCss

    EXEC sp_OAMethod @sbHtml, 'GetAsString', @sTmp0 OUT
    EXEC sp_OAMethod @email, 'SetHtmlBody', NULL, @sTmp0

    DECLARE @success int
    EXEC sp_OAMethod @mailman, 'SendEmail', @success OUT, @email
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @mailman, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
      END
    ELSE
      BEGIN

        PRINT 'Mail Sent!'
      END

    EXEC @hr = sp_OADestroy @mailman
    EXEC @hr = sp_OADestroy @email
    EXEC @hr = sp_OADestroy @sbCss
    EXEC @hr = sp_OADestroy @sbHtml


END
GO