B4J Question [ABMaterial] How to send emails using SMTP and gmail?

[Mashiane]

Hi

I'm trying to get my app to send emails using SMTP inside ABMaterial? Is this recommended first?

Besides that I cant seem to get this working with smtp.gmail.com, any ideas?

Thanks

 

[alwaysbusy]

You have to do it just like you would with any B4J app. ABMaterial has nothing to do with this, it is just the GUI.

 

[alwaysbusy]

https://www.b4x.com/android/forum/threads/building-a-mini-email-based-server.35030/#content could be a start maybe

 

[Mashiane]

https://www.b4x.com/android/forum/threads/building-a-mini-email-based-server.35030/#content could be a start maybe

Thanks, I had thought there would be a conflict of some sort. Tried smtp to send email, working properly however...

I put this in Class_Globals for my ABMaterial page.

Private smtp As SMTP

and also added this method.

Sub smtp_MessageSent(Success As Boolean) [the ShowToast never gets fired though clear does]
    page.IsPaused = False
    If Success = False Then
        myToastId = myToastId + 1
        page.ShowToast("toast" & myToastId, "toastred", "Email could not be sent, please try again.", 3000)
    Else
        ' clear the components
        Clear
        myToastId = myToastId + 1
        page.ShowToast("toast" & myToastId, "toastgreen", "Email sent successfully.", 3000)
    End If
End Sub

The code to process the email and send it..

Private Sub ContactUsProcess
    'define a map to hold the form contents
    Dim m As Map
    'read the page contents to a map
    m = GetContents
    'validate the form contents where required
    If Validate(m) = False Then
        Return
    End If
    Dim fullname As String = m.get("fullname")
    Dim email As String = m.get("email")
    Dim mobilephone As String = m.get("mobilephone")
    Dim comment As String = m.get("comment")

    Try
        page.IsPaused = True [This never gets fired]
        'the form contents are ok, continue with the email send
        ' start smtp to send the emails
        smtp.Initialize("smtp.saix.net", 25, "username", "password", "smtp")
        smtp.To.Add("anele@mbangas.com")
        smtp.Body = ABMShared.Replace("FullName: " & fullname & "||Email: " & email & "||MobilePhone: " & mobilephone & "||Comment: " & comment & "||", "|", CRLF)
        smtp.Subject = "lfjss: Contact Us"
        smtp.Send
    Catch
        page.IsPaused = False
        myToastId = myToastId + 1
        page.ShowToast("toast" & myToastId, "toastred", "Email could not be sent, please try again.", 3000)
    End Try
End Sub

My form design...

The action button will show on small devices only when this is complete.

The thing is, the toast never gets fired even when the page contents are cleared. It fires when I press the back button. How can I solve that. Also the IsPaused event does not show the spinner. Do I need to do a page refresh. Can you please advise.

Thanks

 

[mindful]

For the loading spinner you need to use page.Pause to show the spinner and page.Resume to hide the spinner. Regarding the toast i do not know ... i haven't used it yet ...

 

[Mashiane]

For the loading spinner you need to use page.Pause to show the spinner and page.Resume to hide the spinner. Regarding the toast i do not know ... i haven't used it yet ...

Thanks, fixed the spinner issue. I have decided to use my own smtp for the email sending not gmail, so that is working. The toast issue is still tricky..