Android Question Using SMTP to send email via a SSL enabled server

#Region  Project Attributes
    #ApplicationLabel: Test Postiefs Email
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private SMTP As SMTP
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
 
    Dim IME1 As IME
    Private sv As ScrollView
    Private UseSSL,StartTLSmode As Boolean
    Private nAuthTpe As Int

    Private btnSendMail As Button
    Private cbStartTLSmode As CheckBox
    Private cbUseSSL As CheckBox
    Private etMailServer As FloatLabeledEditText
    Private etMessage As FloatLabeledEditText
    Private etPort As FloatLabeledEditText
    Private etSmtpPassword As FloatLabeledEditText
    Private etSmtpUser As FloatLabeledEditText
    Private etSubject As FloatLabeledEditText
    Private etToAddress As FloatLabeledEditText
    Private LblStatus As Label
    Private spnrAuthMethode As Spinner
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("sv")
    Activity.Title = "Test Email Service"
 
    sv.Panel.LoadLayout("MessagingScreen")
    sv.Panel.Height = sv.Panel.Height + 250dip
 
    etMessage.EditText.SingleLine = False
 
    LblStatus.Text = ""
    LblStatus.Gravity = Bit.Or(Gravity.TOP,Gravity.FILL)
 
    UseSSL = False
    StartTLSmode    = False
    nAuthTpe = 0
 
    Dim mapAuthentications As Map    : mapAuthentications.Initialize
    mapAuthentications.Put(0,"")
    mapAuthentications.Put(1,SMTP.AUTH_PLAIN)
    mapAuthentications.Put(2,SMTP.AUTH_LOGIN)
    mapAuthentications.Put(3,SMTP.AUTH_CRAM_MD5)
 
    spnrAuthMethode.AddAll(Array As String("None","AUTH_PLAIN", "AUTH_LOGIN", "AUTH_CRAM_MD5"))
    spnrAuthMethode.Tag = mapAuthentications


End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub cbUseSSL_CheckedChange(Checked As Boolean)
    If Checked = True Then
        UseSSL = True
    Else
        UseSSL = False
    End If
End Sub

Sub cbStartTLSmode_CheckedChange(Checked As Boolean)
    If Checked = True Then
        StartTLSmode = True
    Else
        StartTLSmode = False
    End If
End Sub

Sub spnrAuthMethode_ItemClick (Position As Int, Value As Object)
     nAuthTpe = Position
End Sub

Sub btnSendMail_Click
  Dim SpinnerMap As Map
  SpinnerMap = spnrAuthMethode.Tag                 
 
    LblStatus.Text = ""
    LblStatus.Text = "Auth Type : " & SpinnerMap.GetValueAt(nAuthTpe) & CRLF
     
    SMTP.Initialize( etMailServer.EditText.Text, etPort.EditText.Text, etSmtpUser.EditText.Text, etSmtpPassword.EditText.Text, "SMTP") 

    SMTP.UseSSL = UseSSL
    SMTP.StartTLSMode = StartTLSmode
 
    If nAuthTpe > 0 Then
        SMTP.AuthMethod = SpinnerMap.GetValueAt(nAuthTpe)
    End If     
 
    SMTP.To.Add(etToAddress.EditText.Text)
    SMTP.Subject = etSubject.EditText.Text
    SMTP.Body = etMessage.EditText.Text
 
     
    If UseSSL Then
        LblStatus.Text = LblStatus.Text & "Use SSL : Yes" & CRLF
    Else
        LblStatus.Text = LblStatus.Text & "Use SSL : No" & CRLF
    End If
 
    If StartTLSmode Then
        LblStatus.Text = LblStatus.Text & "StartTLSmode : Yes" & CRLF
    Else
        LblStatus.Text = LblStatus.Text & "StartTLSmode : No" & CRLF
    End If 
 
    SMTP.Send

    ProgressDialogShow("Sending Email")

End Sub

Sub SMTP_MessageSent(Success As Boolean)
  Log(Success)
  ProgressDialogHide
  If Success Then
        ToastMessageShow("Email Message sent successfully", True)
        LblStatus.Text = "Email Message sent successfully"
  Else
        ToastMessageShow("Error sending Email", True)
        LblStatus.Text = LblStatus.Text & "Error sending Email" & CRLF
        LblStatus.Text = LblStatus.Text &CRLF& LastException.Message
        Log(LastException.Message)
  End If
End Sub

Sub Process_Globals
   Private smtp As SMTP
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
   If FirstTime Then
     smtp.Initialize("smtp.gmail.com", 587, "aaaa@gmail.com", "aaaaaaa", "smtp")
     smtp.StartTLSMode = True
   End If
End Sub

Sub Activity_Click
   smtp.To.Add("mail@example.com")
   smtp.Body = "body"
   smtp.Subject = "Test"
   smtp.Send
   Log("sending message")
End Sub

Sub smtp_MessageSent(Success As Boolean)
   Log($"smtp: ${Success}"$)
   If Not(Success) Then Log(LastException)
End Sub

Sub Process_Globals
   Private smtp As SMTP
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
   If FirstTime Then
     smtp.Initialize("smtp.gmail.com", 465, "aaaa@gmail.com", "aaaaaaa", "smtp")
     smtp.UseSSL = True
   End If
End Sub

Sub Activity_Click
   smtp.To.Add("mail@example.com")
   smtp.Body = "body"
   smtp.Subject = "Test"
   smtp.Send
   Log("sending message")
End Sub

Sub smtp_MessageSent(Success As Boolean)
   Log($"smtp: ${Success}"$)
   If Not(Success) Then Log(LastException)
End Sub