(Xojo Plugin) 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 Xojo Plugin Download

Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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.
Dim mailman As New 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 = True

// Set the SMTP login/password
mailman.SmtpUsername = "OFFICE365-SMTP-LOGIN"
mailman.SmtpPassword = "OFFICE365-SMTP-PASSWORD"

// Create a new email object
Dim email As New Chilkat.Email
email.Subject = "HTML Email with embedded CSS"
email.From = "Chilkat Support <my-office365-user@mydomain.com>"
Dim success As Boolean
success = email.AddTo("Chilkat Support","support@chilkatsoft.com")

Dim sbCss As New Chilkat.StringBuilder
Dim bCrlf As Boolean
bCrlf = True
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.
Dim filenameInHtml As String
filenameInHtml = "styles.css"
Dim contentIdCss As String
contentIdCss = email.AddRelatedString(filenameInHtml,sbCss.GetAsString(),"utf-8")
If (email.LastMethodSuccess <> True) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

// The src attribute for the image tag is set to the contentIdCss:
Dim sbHtml As New 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)

Dim numReplacements As Int32
numReplacements = sbHtml.Replace("CONTENT_ID_CSS",contentIdCss)

email.SetHtmlBody sbHtml.GetAsString()

Dim success As Boolean
success = mailman.SendEmail(email)
If (success <> True) Then
    System.DebugLog(mailman.LastErrorText)
Else
    System.DebugLog("Mail Sent!")
End If