(Visual Basic 6.0) 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 ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

' 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 ChilkatMailMan

' 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
Dim email As New ChilkatEmail
email.Subject = "HTML Email with embedded CSS"
email.From = "Chilkat Support <my-office365-user@mydomain.com>"
success = email.AddTo("Chilkat Support","support@chilkatsoft.com")

Dim sbCss As New ChilkatStringBuilder
Dim bCrlf As Long
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.
Dim filenameInHtml As String
filenameInHtml = "styles.css"
Dim contentIdCss As String
contentIdCss = email.AddRelatedString(filenameInHtml,sbCss.GetAsString(),"utf-8")
If (email.LastMethodSuccess <> 1) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

' The src attribute for the image tag is set to the contentIdCss:
Dim sbHtml As New ChilkatStringBuilder
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 Long
numReplacements = sbHtml.Replace("CONTENT_ID_CSS",contentIdCss)

email.SetHtmlBody sbHtml.GetAsString()

Dim success As Long
success = mailman.SendEmail(email)
If (success <> 1) Then
    Debug.Print mailman.LastErrorText
Else
    Debug.Print "Mail Sent!"
End If