|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Send HTML Email with CSS as Related Item using Content-LocationDemonstrates how to compose an HTML email with an external CSS file included as a related item and referenced by Content-Location. Some email clients display embedded (related) content best using CID's (Content-IDs), whereas other email clients display related content best by Content-Location. The choice you make may depend on the software used by the intended recipient of your email. (Does' the recipient read email on an iPhone? Android? Outlook? GMail? Thunderbird? etc.)
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' The mailman object is used for sending and receiving email. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.MailMan") set mailman = Server.CreateObject("Chilkat.MailMan") ' Use your SMTP server hostname. This example uses office365, but it could be any SMTP server.. mailman.SmtpHost = "outlook.office365.com" mailman.SmtpPort = 587 mailman.StartTLS = 1 ' Set the SMTP login/password mailman.SmtpUsername = "OFFICE365-SMTP-LOGIN" mailman.SmtpPassword = "OFFICE365-SMTP-PASSWORD" ' Create a new email object ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email") set email = Server.CreateObject("Chilkat.Email") email.Subject = "HTML Email with embedded CSS" email.From = "Chilkat Support <my-office365-user@mydomain.com>" success = email.AddTo("Chilkat Support","support@chilkatsoft.com") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbCss = Server.CreateObject("Chilkat.StringBuilder") bCrlf = 1 success = sbCss.AppendLine("body {",bCrlf) success = sbCss.AppendLine(" background-color: powderblue;",bCrlf) success = sbCss.AppendLine("}",bCrlf) success = sbCss.AppendLine("h1 {",bCrlf) success = sbCss.AppendLine(" color: blue;",bCrlf) success = sbCss.AppendLine("}",bCrlf) success = sbCss.AppendLine("p {",bCrlf) success = sbCss.AppendLine(" color: red;",bCrlf) success = sbCss.AppendLine("}",bCrlf) ' The filenameInHtml is what should exists within the HTML (in the href atribute) filenameInHtml = "styles.css" ' Call AddRelatedString2 to use Content-Location. email.AddRelatedString2 filenameInHtml,sbCss.GetAsString(),"utf-8" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbHtml = Server.CreateObject("Chilkat.StringBuilder") success = sbHtml.AppendLine("<!DOCTYPE html>",bCrlf) success = sbHtml.AppendLine("<html>",bCrlf) success = sbHtml.AppendLine("<head>",bCrlf) success = sbHtml.AppendLine(" <link rel=""stylesheet"" href=""styles.css"">",bCrlf) success = sbHtml.AppendLine("</head>",bCrlf) success = sbHtml.AppendLine("<body>",bCrlf) success = sbHtml.AppendLine("",bCrlf) success = sbHtml.AppendLine("<h1>This is a heading</h1>",bCrlf) success = sbHtml.AppendLine("<p>This is a paragraph.</p>",bCrlf) success = sbHtml.AppendLine("",bCrlf) success = sbHtml.AppendLine("</body>",bCrlf) success = sbHtml.AppendLine("</html>",bCrlf) email.SetHtmlBody sbHtml.GetAsString() success = mailman.SendEmail(email) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>" Else Response.Write "<pre>" & Server.HTMLEncode( "Mail Sent!") & "</pre>" End If %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.