B4J Code Snippet How to Send easy mail

Hi, i was searching a easy tutorial for send a Mail, and there're many post but they don't explain easy how to send a mail easy. So i will share with you how i do it!


First you need to load the Net library, its a Internal Library.

Then create a Global Variable:

Public SMTP As SMTP

Add this code to your project:

Public Sub SendMail(Subject As String, Body As String, MailTo As String)
    
    SMTP.Initialize(MailServer,MailPort,YourEmail,EmailPassword,"SMTP")
    SMTP.Subject = Subject
    SMTP.Body = Body
    SMTP.To.Add(MailTo)
    SMTP.StartTLSMode = True
    SMTP.Send
    
End Sub

Sub SMTP_MessageSent(Success As Boolean)
    Log(Success)
    If Success Then
        Log("Message sent successfully")
    Else
        Log("Error sending message")
        Log(LastException.Message)
    End If
End Sub

You have to replace:

MailServer: The Server of you mail provider.
Ex..: Google : "smtp.gmail.com"
MailPort: 587
Your Email - EmailPassword

Result its something like:

    SMTP.Initialize("smtp.gmail.com",587,"test@gmail.com","1234","SMTP")

For Use the code just add this line:

SendMail("Test Message","This messages come from B4X Project","mailto@gmail.com")

I hope help you with this tutorial.


Regards!

 

[Erel]

Even simpler:

Public Sub SendMail(Subject As String, Body As String, MailTo As String)
    
    SMTP.Initialize(MailServer,MailPort,YourEmail,EmailPassword,"SMTP")
    SMTP.Subject = Subject
    SMTP.Body = Body
    SMTP.To.Add(MailTo)
    SMTP.StartTLSMode = True
    SMTP.Send
   Wait For SMTP_MessageSent(Success As Boolean)
    Log(Success)
    If Success Then
        Log("Message sent successfully")
    Else
        Log("Error sending message")
        Log(LastException.Message)
    End If
End Sub

 

[Brian Michael]

Thanks, its more simpler.