B4J Question [Solved] Sending HTML Email. Getting Wrong Content from Code Snippet

[Dadaista]

Hi
From this 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...

www.b4x.com

I get wrong content

The HTML code from file Downloaded is (before EncodeBase64)

<!DOCTYPE html>
<html>
  <head>
    <meta http-equiv="content-type" content="text/html; charset=UTF-8">
  </head>
  <body>
    <p></p>
    <h3>Has recibido este email desde Caja Venta [Windows]</h3>
    <p></p>
    <p></p>
    <h4>Fichero Adjunto:</h4>
    <p></p>
    <h4 style="margin-left: 40px;">enero(2021)-marzo(2021).xls</h4>
    <p></p>
   
  </body>
</html>

I am getting...

PCFET0NUWVBFIGh0bWw+CjxodG1sPgogIDxoZWFkPgogICAgPG1ldGEgaHR0cC1lcXVpdj0iY29udGVudC10eXBlIiBjb250ZW50PSJ0ZXh0L2h0bWw7IGNoYXJzZXQ9VVRGLTgiPgogIDwvaGVhZD4KICA8Ym9keT4KICAgIDxwPjwvcD4KICAgIDxoMz5IYXMgcmVjaWJpZG8gZXN0ZSBlbWFpbCBkZXNkZSBDYWphIFZlbnRhIFtXaW5kb3dzXTwvaDM+CiAgICA8cD48L3A+CiAgICA8cD48L3A+CiAgICA8aDQ+RmljaGVybyBBZGp1bnRvOjwvaDQ+CiAgICA8cD48L3A+CiAgICA8aDQgc3R5bGU9Im1hcmdpbi1sZWZ0OiA0MHB4OyI+ZW5lcm8oMjAyMSktbWFyem8oMjAyMSkueGxzPC9oND4KICAgIDxwPjwvcD4KICAgIAogIDwvYm9keT4KPC9odG1sPgo

after of..

SMTP.Body = su.EncodeBase64(sBody.GetBytes("utf8"))
SMTP.AdditionalHeaders.Put("Content-Transfer-Encoding", "BASE64")

My code is

Sub MandaEmailConFichero(sFile As String, sEmailR As String, sEmailE As String, sServidor As String, sClave As String, iPuerto As Int)
    Dim su As StringUtils
    Dim sBody As String = ""
    Dim url As String = "myURL://myHTMLFile.html"
   
    SMTP.Initialize(sServidor, iPuerto, sEmailE, sClave, "SMTP")
    If iPuerto = 587 Then
        SMTP.StartTLSMode = True
    Else
        SMTP.UseSSL = True
    End If
   
    SMTP.HtmlBody = True
    SMTP.To.Add(sEmailR)
    SMTP.Subject = "[APP] File: " & sFile
    SMTP.AddAttachment(File.DirTemp, sFile)
   
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download(url)
    Wait For (j) JobDone (j As HttpJob)
    If j.Success Then
        Dim out As OutputStream = File.OpenOutput(File.DirTemp, "lomando", False)
        File.Copy2(j.GetInputStream, out)
        out.Close '<------ very important
        Dim FicheroEmail As TextReader
        FicheroEmail.Initialize(File.OpenInput(File.DirTemp, "lomando"))
        sBody = FicheroEmail.ReadAll 'LEE TODO Y CIERRA EL FICHERO
        sBody = sBody.Replace("sDameTipoPlataforma", sDameTipoPlataforma)
        sBody = sBody.Replace("sFile", sFile)
        Log(sBody)
    End If
    j.Release
    SMTP.Body = su.EncodeBase64(sBody.GetBytes("utf8"))
    SMTP.AdditionalHeaders.Put("Content-Transfer-Encoding", "BASE64")
    SMTP.Send
    File.Delete(File.DirTemp, "lomando")
End Sub

How can I solve it?

Thank you in advance

 

[Erel]

That code snippet will not work with attachments. I will add a message about it.

 

[Erel]

Updated code snippet will work: https://www.b4x.com/android/forum/t...html-mails-sent-with-smtp-net-library.128146/

 

[Dadaista]

Hi
Thx @Erel !!

New code snippet throw an error in smtp.send. Line too long

Log says:

WARNING: package com.sun.javafx.embed.swing.oldimpl not in javafx.swing

Waiting for debugger to connect...

Program started.

java.lang.RuntimeException: Error sending message: 501 Syntax error - line too long

    at anywheresoftware.b4a.net.SMTPWrapper$1.run(SMTPWrapper.java:338)

    at java.base/java.util.concurrent.Executors$RunnableAdapter.call(Executors.java:515)

    at java.base/java.util.concurrent.FutureTask.run(FutureTask.java:264)

    at java.base/java.util.concurrent.ThreadPoolExecutor.runWorker(ThreadPoolExecutor.java:1130)

    at java.base/java.util.concurrent.ThreadPoolExecutor$Worker.run(ThreadPoolExecutor.java:630)

    at java.base/java.lang.Thread.run(Thread.java:832)

java.lang.RuntimeException: Error sending message: 501 Syntax error - line too long

 

[Erel]

I've updated the code: https://www.b4x.com/android/forum/t...html-mails-sent-with-smtp-net-library.128146/
Please try it.

 

[Dadaista]

Hi

Thx @Erel. It is working now!!