Android Question [SOLVED] Automatically sending an email from B4A

JohnC said:

Using an intent will just open the default email client on the device (or display a list of clients that can handle it) - which the user then needs to manually complete the sending of the email.

Doing a quick search on this forum you will find this tutorial of how to programmically send emails using the user's own gmail account without user intervention (after the user does a one-time authorization to authorize your app):

[B4X] Sending emails with Gmail REST API

This solution is compatible with B4A, B4J and B4i. Up until now there were two ways to send emails: 1. Using the default mobile app which required the user to actually send the message (available in B4A and B4i). 2. Using SMTP from the Net library. This required the user to enter the email...

www.b4x.com

Click to expand...

rleiman said:

Greetings,

I have been calling the phone's email like this.

B4X:

Dim msg As Email

msg.Subject = "Song Requests"
msg.Body = EditTextRequestedSongs.Text
msg.To.Add("ultraviproduction@gmail.com")

StartActivity(msg.GetIntent)

Is there a way in B4A to send the email from the app without actually displaying the email client on the screen in code?

Thanks.

Click to expand...

JohnC said:

You misunderstand, YOU do all that those steps to get the Client ID for your app.

To the user, when they first try to send an email, it will ask for authorization, which is a simple prompt, then that's all the user needs to do!

Click to expand...

Alex_197 said:

B4X:

Private Sub SendEmail
   
    Try

Dim mail As SMTP
mail.Initialize(Main.MailServer, 587, Main.MailUserName, Main.MailPassword, "SMTP")


        Dim Body As String
        Dim Subj As String
        Dim EmailTo As String
       
        Subj="Please contact the office to manually enter timesheet."

        Body= "It's been more than 24 hours since your clock in"
       
        EmailTo="someemail.@email.com"               
       
        mail.StartTLSMode = True
        mail.To.Add(EmailTo)
        mail.HtmlBody=True      
        mail.Subject = Subj
        mail.Body = Body
        mail.Sender = "info@email.com"
        mail.Send
       
       
    Catch
        Log("SendEmail " & LastException)
       
    End Try
   
End Sub

Sub SMTP_MessageSent(Success As Boolean)
   
    Try
        Log(Success)
        If Success Then
           
            ToastMessageShow("Message sent successfully", True)
        Else
            ToastMessageShow("Error sending message", True)
            Log(LastException.Message)
        End If
    Catch
        Log("SMTP_MessageSent " & LastException)
       
    End Try
   
   

End Sub

Click to expand...

JohnC said:

You misunderstand, YOU do all that those steps to get the Client ID for your app.

To the user, when they first try to send an email, it will ask for authorization, which is a simple prompt, then that's all the user needs to do!

Click to expand...

Alex_197 said:

B4X:

Private Sub SendEmail
 
    Try

Dim mail As SMTP
mail.Initialize(Main.MailServer, 587, Main.MailUserName, Main.MailPassword, "SMTP")


        Dim Body As String
        Dim Subj As String
        Dim EmailTo As String
     
        Subj="Please contact the office to manually enter timesheet."

        Body= "It's been more than 24 hours since your clock in"
     
        EmailTo="someemail.@email.com"             
     
        mail.StartTLSMode = True
        mail.To.Add(EmailTo)
        mail.HtmlBody=True    
        mail.Subject = Subj
        mail.Body = Body
        mail.Sender = "info@email.com"
        mail.Send
     
     
    Catch
        Log("SendEmail " & LastException)
     
    End Try
 
End Sub

Sub SMTP_MessageSent(Success As Boolean)
 
    Try
        Log(Success)
        If Success Then
         
            ToastMessageShow("Message sent successfully", True)
        Else
            ToastMessageShow("Error sending message", True)
            Log(LastException.Message)
        End If
    Catch
        Log("SMTP_MessageSent " & LastException)
     
    End Try
End Sub

Click to expand...

rleiman said:

Hi John,

We will be going with Alex's code because we don't know how to navigate the Google API website, but thanks for suggesting that as a possible solution.

Click to expand...

JohnC said:

That's ok, but keep in mind if you use the SMTP method, then you will still need the user to figure out some rather technical info like what their smtp server address is, the port number, the username, the password and SSL/TSL setting in order to send an email using the SMTP method.

However, if your plan is to instead use YOUR smtp server (and you would embed your smtp account username, password, port, etc within your app, so you wouldn't have to ask the user for their server's details), then please keep in mind that it wouldn't be too difficult for a hacker to uncover that info from within your APK and then use your smtp account for bad purposes.

Click to expand...

rleiman said:

Thanks so much for the code sample. Looks like we need another library along with the Network library.

Click to expand...

Alex_197 said:

SMTP is in Net library

Click to expand...

rleiman said:

Thanks.

Could you look at my new thread and let me know why the message is not being sent? Thanks so much.

https://www.b4x.com/android/forum/threads/net-library-using-smtp-to-send-an-email-message.123969/

Click to expand...

Private Sub SendEmail
    
    Try
        
  
        email.Initialize("smtp.gmail.com", 587, "yourmailbox@gmail.com", "gmailpassword", "EmailClient")
        
  
        Dim Body As String
        Dim Subj As String
        Dim EmailTo As String
        Dim SenderEmail As String
      
        Subj="Test Email."
        Body= "Testing 123."
        EmailTo="info@email.com"
        SenderEmail="yourmailbox@gmail.com" ' MUST be the same as "yourmailbox@gmail.com"
                
        email.AuthMethod=email.AUTH_LOGIN
        email.UseSSL = True
        email.StartTLSMode = True
        email.To.Add(EmailTo)
        email.HtmlBody=True
        email.Subject = Subj
        email.Body =  Body
        email.Sender = SenderEmail
        email.HtmlBody=True
        email.Send
        Log("Tried to send")
        
    Catch
        Log("SendEmail " & LastException)
    End Try
End Sub

Sub EmailClient_MessageSent(Success As Boolean)
    
    Try
    
        Log(Success)
        
        
    Catch
        Log(LastException)
    End Try

Alex_197 said:

Check This first https://support.google.com/accounts...en&visit_id=637395031216316543-150071489&rd=1

Step 1 - Solution https://www.google.com/settings/security/lesssecureapps Enable the check
Step 2 -

B4X:

Private Sub SendEmail
   
    Try
       
 
        email.Initialize("smtp.gmail.com", 587, "yourmailbox@gmail.com", "gmailpassword", "EmailClient")
       
 
        Dim Body As String
        Dim Subj As String
        Dim EmailTo As String
        Dim SenderEmail As String
     
        Subj="Test Email."
        Body= "Testing 123."
        EmailTo="info@email.com"
        SenderEmail="yourmailbox@gmail.com" ' MUST be the same as "yourmailbox@gmail.com"
               
        email.AuthMethod=email.AUTH_LOGIN
        email.UseSSL = True
        email.StartTLSMode = True
        email.To.Add(EmailTo)
        email.HtmlBody=True
        email.Subject = Subj
        email.Body =  Body
        email.Sender = SenderEmail
        email.HtmlBody=True
        email.Send
        Log("Tried to send")
       
    Catch
        Log("SendEmail " & LastException)
    End Try
End Sub

Sub EmailClient_MessageSent(Success As Boolean)
   
    Try
   
        Log(Success)
       
       
    Catch
        Log(LastException)
    End Try

Click to expand...

Alex_197 said:

Step 1 - open this URL Less secure apps & your Google Account
Step 2 - Click on "Less secure app access" is on for your account "
Step 3 - Click on Go to the Less secure app access section of your Google Account. You might need to sign in.
Step 4 - Turn Allow less secure apps off.

See the screen shotView attachment 102154

Click to expand...