How to handle the error message when sending an email via SMTP
B4X:
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
End Sub
Sub Button1_Click
SendEmail("[email protected]","tttt","wwwwww")
End Sub
Sub SendEmail(email As String, subject As String, message As String)
Dim smtp As SMTP
smtp.Initialize("smtp.qq.com",465,"[email protected]","***********","mail")
smtp.UseSSL = True
smtp.MailFrom = "[email protected]"
smtp.Subject = subject
If email.Contains(";") Then
Dim emails() As String = Regex.split(";",email)
For Each address As String In emails
smtp.To.Add(address)
Next
Else
smtp.To.Add(email)
End If
smtp.Body = message
smtp.Send
End Sub
