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("17356929533@163.com","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,"807892394@qq.com","***********","mail")
smtp.UseSSL = True
smtp.MailFrom = "807892394@qq.com"
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
