B4A_安卓 通过SMTP电子邮件

#Region  Project Attributes
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName:
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private but_send As Button
	Private txt_arc As AutoCompleteEditText
	Private txt_title As EditText
	Private txt_toadd As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("test")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub but_send_Click
	
	''引用NET类库
	
	Dim SMTP_Mail As SMTP
	
	'SMTP_Mail.Initialize("smtp.qq.com",587, "*****@qq.com","**********","SMTP")
	
	SMTP_Mail.Initialize("smtp.163.com",25, "*********@163.com","*******","SMTP") ''邮件发出的地址
	
	SMTP_Mail.UseSSL = False  ''是否使用SSL
	
	SMTP_Mail.StartTLSMode=True   ''启用TLS模式
	
	SMTP_Mail.AuthMethod=SMTP_Mail.AUTH_LOGIN ''登录验证方式
	
	SMTP_Mail.To.Add(txt_toadd.Text)  ''接收的邮件
	
	SMTP_Mail.Subject = txt_title.Text		''邮件标题
	
	SMTP_Mail.Body =txt_arc.Text  ''邮件主题内容
	
	'SMTP_Mail.AddAttachment(File.DirDefaultExternal,"test.txt")  ''邮件附件
	
	SMTP_Mail.Send  ''发送邮件
	
	Wait For SMTP_MessageSent(Success As Boolean)
	
	If Success=True Then
		
		ToastMessageShow("邮件发送成功!",False)
		
	Else
		
		ToastMessageShow("邮件发送失败!",False)
		
	End If


End Sub