B4A Library New Net library - Android FTP, SMTP and POP3

Try to send on: 587, SSL: false, TLS: true
TO: true count: 1 = hubert.brandel@gmx.de
After Send ...
SMTP send: false
java.net.SocketTimeoutException: Connection timed out

java.lang.RuntimeException:
Empty writer returned: 503 Bad sequence of commands.
You must specify the recipients of a message before you can send it

'Activity module
Sub Process_Globals
    ...
    Dim sDir As String = File.DirRootExternal     ' file attachement from ...
    Dim sFile As String = "HB-PDF.pdf"            ' name ...
    Dim sTo As String = "TargetEmailAdress@xyz.de"
    ' email über SMTP Server ... hierfür braucht man eine Internetverbindung und Klaus sollte eine eMail-Sendeadresse auf seinem Server anlegen.
    Dim SMTP As SMTP
    Dim sServer As String = "mail.server.de"  ' the SMTP Server
    Dim sSender As String = "ProgName@MySite.de" ' each app has its own eMailAdress to send from ...
    Dim sFrom As String = sSender
    Dim sPW As String = "..." ' the right password
    Dim iPort As Int     = I want to change this later in the APP

End Sub

' normaly this code should be here ...

Sub Activity_Create(FirstTime As Boolean)   
   If FirstTime Then
     Label1.Text = "eMail an: " & sTo
     Port25.Checked = True
     iPort = 25
     SMTP.Initialize(sServer, iPort, sFrom,sPW,"SMTP")
     SMTP.StartTLSMode = False
     SMTP.UseSSL = False
   End If    
End Sub

Sub Send_Click
   If File.Exists(sDir,sFile) Then ' no file, no eMail
     ToastMessageShow("PDF senden (" & iPort & ")...",False) ' this shows the right port
     SMTP.Initialize(sServer, iPort, sFrom, sPW, "SMTP" ) ' look good in debugger
     If iPort = 25 Then
        SMTP.UseSSL = False
        SMTP.StartTLSMode = False
     Else
       If iPort = 465 Then
         SMTP.UseSSL = True
         SMTP.StartTLSMode = False
        End If   

       If iPort = 587 Then
         SMTP.UseSSL = False
         SMTP.StartTLSMode = True
        End If   
     End If   
     Log("Try to send on: " & iPort & ", SSL: " & SMTP.UseSSL & ", TLS: " & SMTP.StartTLSMode )
     
     SMTP.Sender = sSender ' no change if I remove this line 
     SMTP.To.Add(sTo) 
     Log("TO: " & SMTP.To.IsInitialized & " count: " & SMTP.To.Size & " = " & SMTP.To.Get(0) ) ' The log say, that I have 1 TO adress and it is right.
     SMTP.Subject = "Test eMail mit PDF Anhang"
     SMTP.Body = "Diese PDF habe ich gerade vom Smartphone erzeugt ;-) "
     SMTP.AddAttachment(sDir,sFile)
     SMTP.Send
     Log("After Send ...")     
   Else
     ToastMessageShow("PDF fehlt !",False)
   End If
End Sub

Sub SMTP_MessageSent(Success As Boolean)
   Log("SMTP send: " & Success )
     If Success Then
     ToastMessageShow("PDF wurde versandt !",True)
   Else
    ToastMessageShow("eMail Fehler !",True)
     Log(LastException.Message)
   End If   
End Sub

...Try to send on: 25, SSL: false, TLS: false
TO: true count: 1 = hubert.brandel@gmx.de
After Send ...
SMTP send: false
java.lang.RuntimeException: Empty writer returned: 
503 Bad sequence of commands. You must specify the recipients of a message before you can send it

*----------------------------------------------------------------------------------------
Function SendAsinet(aEmpfaenger,cBetreff,cText,cProgPfad,aAttachFile,cAntwortAdresse) ' my function
  ... 
  LOCAL oSmtp  := SMTPClient():new( GetSmtpServer(),,, oLog, 2 )
  LOCAL oSender  := MailAddress():new( "xxxxx@yyyy.de" )
  LOCAL oMail  := MIMEMessage():new()

  oMail:setFrom  ( oSender  ) // "xxxxx@yyyy.de"
  oMail:setSubject  ( cBetreff  ) // "Test eMail ..."
  oMail:setMessage  ( cText  ) // just the body text
  aeval(aEmpfaenger, {|cEmp| oMail:addRecipient(MailAddress():new(cEmp) ) }) ' adds all TO adresses
  oMail:addHeader( "Date", TimeStampSMTP() ) ' need to correct an error with date 
  if ! aAttachFile = NIL
     aeval(aAttachFile, {|cFile| oMail:attachFile( cFile ) })
  endif

  IF oSmtp:connect( sUserName, sPassword ) ' fix from a ini file
     IF oSmtp:send( oMail )
         lOK := .t.
         ? "Message sent"
     ELSE
         ? "Unable to deliver message"
     ENDIF
     oSmtp:disconnect()
  ELSE
     ? "Unable to connect to mail server"
  ENDIF
RETURN lOK