Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(SQL Server) Send HTML Email with External CSS as Related ItemDemonstrates how to compose an HTML email with an external CSS file included as a related item and referenced by CID (Content-ID).
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 |
© 2000-2019 Chilkat Software, Inc. All Rights Reserved.