(Excel) 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).

Download Excel Class Modules

Chilkat Excel Class Modules

' 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 Chilkat.MailMan
Set mailman = Chilkat.NewMailMan

' 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 Chilkat.Email
Set email = Chilkat.NewEmail
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 Chilkat.StringBuilder
Set sbCss = Chilkat.NewStringBuilder

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.

filenameInHtml = "styles.css"

contentIdCss = email.AddRelatedString(filenameInHtml,sbCss.GetAsString(),"utf-8")
If (email.LastMethodSuccess <> True) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

' The src attribute for the image tag is set to the contentIdCss:
Dim sbHtml As Chilkat.StringBuilder
Set sbHtml = Chilkat.NewStringBuilder
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 <> True) Then
    Debug.Print mailman.LastErrorText
Else
    Debug.Print "Mail Sent!"
End If