|
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
(VBScript) 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).
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' 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 = 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 = 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 = 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) ' It's possible to add a CSS file directly by calling AddRelatedFile. ' This example will add the CSS from a string. filenameInHtml = "styles.css" contentIdCss = email.AddRelatedString(filenameInHtml,sbCss.GetAsString(),"utf-8") If (email.LastMethodSuccess <> 1) Then outFile.WriteLine(email.LastErrorText) WScript.Quit End If ' The src attribute for the image tag is set to the contentIdCss: ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbHtml = 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=""cid:CONTENT_ID_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) numReplacements = sbHtml.Replace("CONTENT_ID_CSS",contentIdCss) email.SetHtmlBody sbHtml.GetAsString() success = mailman.SendEmail(email) If (success <> 1) Then outFile.WriteLine(mailman.LastErrorText) Else outFile.WriteLine("Mail Sent!") End If outFile.Close |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.