B4X
Send HTML Email with Attachments

Demonstrates how to send an HTML email with file attachments.
Chilkat B4X Downloads

B4X
Dim success As Boolean = False

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim mailman As ChilkatMailMan
mailman.Initialize("mailman")

mailman.SmtpHost = "smtp.my-starttls-mail-server.com"

mailman.SmtpUsername = "MY-SMTP-USERNAME"
mailman.SmtpPassword = "MY-SMTP-PASSWORD"

mailman.StartTLS = True
mailman.SmtpPort = 587

'  Create a new email object
Dim email As ChilkatEmail
email.Initialize
email.Subject = "Test SMTP API to Send HTML Email with Attachments"
email.From = "Joe Programmer <joe@my-starttls-mail-server.com>"
email.AddTo("Chilkat Support", "support@chilkatsoft.com")

'  Add a plain-text alternative body, which will likely never be seen.
'  (It is shown if the receiving email client is incapable of displaying HTML email.)
email.AddPlainTextAlternativeBody("This is a plain-text alternative body...")

'  Our HTML will include an image, so add the related image here.
Dim contentIdStarfish As String = email.AddRelatedFile("qa_data/jpg/starfish.jpg")
If email.LastMethodSuccess <> True Then
    Log(email.LastErrorText)
    Return
End If


'  The src attribute for the image tag is set to the contentIdStarfish:
Dim sbHtml As ChilkatStringBuilder
sbHtml.Initialize
sbHtml.Append("<html><body><p>This is an HTML email with an embedded image.</p>")
sbHtml.Append("<p><img src=" & Chr(34) & "cid:CONTENT_ID_STARFISH" & Chr(34) & " /></p></body></html>")
Dim numReplacements As Int = sbHtml.Replace("CONTENT_ID_STARFISH", contentIdStarfish)

email.AddHtmlAlternativeBody(sbHtml.GetAsString)

'  Finally, add some attachments to the email.
'  Add a file attachment.
success = email.AddFileAttachment2("qa_data/pdf/fishing.pdf", "application/pdf")
If success <> True Then
    Log(email.LastErrorText)
    Return
End If


'  Add an attachment where the content is contained in a string.
Dim content As String = "This is the content of the 2nd attached file."
email.AddStringAttachment("someText.txt", content)

'  Send the HTML email.
success = mailman.SendEmail(email)
If success <> True Then
    Log(mailman.LastErrorText)
    Return
End If


success = mailman.CloseSmtpConnection
If success <> True Then
    Log("Connection to SMTP server not closed cleanly.")
End If


Log("HTML email with attachments sent!")