|
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
(Visual FoxPro) 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).
LOCAL loMailman LOCAL loEmail LOCAL loSbCss LOCAL lnBCrlf LOCAL lcFilenameInHtml LOCAL lcContentIdCss LOCAL loSbHtml LOCAL lnNumReplacements LOCAL lnSuccess * 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') loMailman = CreateObject('Chilkat.MailMan') * Use your SMTP server hostname. This example uses office365, but it could be any SMTP server.. loMailman.SmtpHost = "outlook.office365.com" loMailman.SmtpPort = 587 loMailman.StartTLS = 1 * Set the SMTP login/password loMailman.SmtpUsername = "OFFICE365-SMTP-LOGIN" loMailman.SmtpPassword = "OFFICE365-SMTP-PASSWORD" * Create a new email object * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email') loEmail = CreateObject('Chilkat.Email') loEmail.Subject = "HTML Email with embedded CSS" loEmail.From = "Chilkat Support <my-office365-user@mydomain.com>" loEmail.AddTo("Chilkat Support","support@chilkatsoft.com") * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder') loSbCss = CreateObject('Chilkat.StringBuilder') lnBCrlf = 1 loSbCss.AppendLine("body {",lnBCrlf) loSbCss.AppendLine(" background-color: powderblue;",lnBCrlf) loSbCss.AppendLine("}",lnBCrlf) loSbCss.AppendLine("h1 {",lnBCrlf) loSbCss.AppendLine(" color: blue;",lnBCrlf) loSbCss.AppendLine("}",lnBCrlf) loSbCss.AppendLine("p {",lnBCrlf) loSbCss.AppendLine(" color: red;",lnBCrlf) loSbCss.AppendLine("}",lnBCrlf) * It's possible to add a CSS file directly by calling AddRelatedFile. * This example will add the CSS from a string. lcFilenameInHtml = "styles.css" lcContentIdCss = loEmail.AddRelatedString(lcFilenameInHtml,loSbCss.GetAsString(),"utf-8") IF (loEmail.LastMethodSuccess <> 1) THEN ? loEmail.LastErrorText RELEASE loMailman RELEASE loEmail RELEASE loSbCss CANCEL ENDIF * 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') loSbHtml = CreateObject('Chilkat.StringBuilder') loSbHtml.AppendLine("<!DOCTYPE html>",lnBCrlf) loSbHtml.AppendLine("<html>",lnBCrlf) loSbHtml.AppendLine("<head>",lnBCrlf) loSbHtml.AppendLine(' <link rel="stylesheet" href="cid:CONTENT_ID_CSS">',lnBCrlf) loSbHtml.AppendLine("</head>",lnBCrlf) loSbHtml.AppendLine("<body>",lnBCrlf) loSbHtml.AppendLine("",lnBCrlf) loSbHtml.AppendLine("<h1>This is a heading</h1>",lnBCrlf) loSbHtml.AppendLine("<p>This is a paragraph.</p>",lnBCrlf) loSbHtml.AppendLine("",lnBCrlf) loSbHtml.AppendLine("</body>",lnBCrlf) loSbHtml.AppendLine("</html>",lnBCrlf) lnNumReplacements = loSbHtml.Replace("CONTENT_ID_CSS",lcContentIdCss) loEmail.SetHtmlBody(loSbHtml.GetAsString()) lnSuccess = loMailman.SendEmail(loEmail) IF (lnSuccess <> 1) THEN ? loMailman.LastErrorText ELSE ? "Mail Sent!" ENDIF RELEASE loMailman RELEASE loEmail RELEASE loSbCss RELEASE loSbHtml |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.