B4J Code Snippet [B4X] Solving encoding issues with html mails sent with SMTP (Net library)

Encoding the html text with base64 avoids encoding issues, especially with MS Outlook.
This code is compatible with B4A and B4J:

Private Sub SplitBase64WithCRLF (EncodedText As String, LineLength As Int = 76) As String
    Dim eol As String = Chr(13) & Chr(10)
    Dim sb As StringBuilder
    sb.Initialize
    For i = 0 To EncodedText.Length - 1 Step LineLength
        Dim line As String = EncodedText.SubString2(i, Min(EncodedText.Length, i + LineLength))
        sb.Append(line).Append(eol)
    Next
    Return sb.ToString
End Sub


Dim su As StringUtils
smtp.Body = SplitBase64WithCRLF(su.EncodeBase64(html.GetBytes("utf8"))) 'html = the html body
smtp.AdditionalHeaders.Put("Content-Transfer-Encoding", "BASE64")

 

[Erel]

Use this sub if you need to send mail with attachments:

'Each item in the Attachments list is an array with the file directory and name.
Sub CreateHtmlAndAttachmentsBody (smtp As SMTP, Html As String, Attachments As List)
    Dim sb As StringBuilder
    sb.Initialize
    Dim eol As String = Chr(13) & Chr(10)
    Dim bound As String = "asdasdwdwqd__HV_qwdqwdddwq"
    sb.Append("--").Append(bound).Append(eol)
    sb.Append($"Content-Type: text/html; charset="utf-8""$).Append(eol)
    sb.Append("Content-Transfer-Encoding: base64").Append(eol).Append(eol)
    sb.Append(EncodeBase64WithLineBreaks(Html.GetBytes("utf8")))
    For Each DirAndName() As Object In Attachments
        sb.Append(eol).Append("--").Append(bound).Append(eol)
        sb.Append("Content-Type: application/octet-stream").Append(eol)
        sb.Append("Content-Transfer-Encoding: base64").Append(eol)
        sb.Append($"Content-Disposition: attachment; filename="${DirAndName(1)}""$).Append(eol).Append(eol)
        sb.Append(EncodeBase64WithLineBreaks(File.ReadBytes(DirAndName(0), DirAndName(1)))).Append(eol)
    Next
    sb.Append("--").Append(bound).Append("--")
    smtp.Body = sb.ToString
    smtp.AdditionalHeaders.Put("Content-Type", $"multipart/mixed; boundary="${bound}""$)
End Sub

Private Sub EncodeBase64WithLineBreaks (bytes() As Byte) As String
    Dim su As StringUtils
    Dim s As String = su.EncodeBase64(bytes)
    If s.Length <= 76 Then Return s
    Dim sb As StringBuilder
    sb.Initialize
    Dim linelength As Int
    For i = 0 To s.Length - 1
        If linelength = 76 Then
            sb.Append(Chr(13) & Chr(10))
            linelength = 0
        End If
        sb.Append(s.CharAt(i))
        linelength = linelength + 1
    Next
    Return sb.ToString
End Sub

Usage example:

Dim smtp As SMTP
smtp.Initialize("...", 587, "...", "...", "smtp")
smtp.To.Add("[email protected]")
smtp.Subject = "subject"
Dim html As String = File.ReadString(...)
Dim attachments As List
attachments.Initialize
attachments.Add(Array(File.DirAssets, "some file"))
attachments.Add(Array("C:\Users\H\Documents", "another file"))
CreateHtmlAndAttachmentsBody(smtp, html, attachments)
smtp.Send
Wait For smtp_MessageSent(Success As Boolean)
Log(Success)

 

[Erel]

Added the base64 line splitting to the non-attachments version.