专栏首页VB小源码B4A_安卓 通过SMTP电子邮件

B4A_安卓 通过SMTP电子邮件

SMTP电子邮件

B4A安卓

SMTP示例效果图示

01.邮箱设置

>>>>

QQ邮箱设置stmp,见下图!然后按提示操作即可!

>>>>

163邮箱设置stmp,见下图!然后按提示操作即可!

02.界面设计

>>>>

首先引用NET类库

>>>>

设计界面布局


03.代码书写

#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

本文分享自微信公众号 - VB小源码(vb_xym),作者:VB小源码

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2020-01-16

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • VB6 连接SQLite小型数据库

    巴西_prince
  • B4A 调用谷歌翻译api进行翻译

    Google 翻译是谷歌公司提供一项免费的翻译服务,可提供103 种语言之间的即时翻译,支持任意两种语言之间的字词、句子和网页翻译。可分析的人工翻译文档越多,译...

    巴西_prince
  • VB.NET 脚本计算机示例

    巴西_prince
  • 【RL-TCPnet网络教程】第34章 RL-TCPnet之SMTP客户端

    本章节为大家讲解RL-TCPnet的SMTP应用,学习本章节前,务必要优先学习第33章的SMTP基础知识。有了这些基础知识之后,再搞本章节会有事半功倍的效果。

    armfly
  • python学习-smtplib模块

     python的stmplib模块可以实现邮件的发送功能,可以模拟一个smtp客户端。在python2.3或者更高版本默认自带smtplib模块,无需额外安装。

    py3study
  • 查询数据库内历史同期和总计脚本

    本文脚本的执行shell为/usr/bin/ksh,可根据实际情况修改,运行命令echo $SHELL可查看当前用户的shell类型。

    loong576
  • 恭贺新春

    ?   鼠年将至,腾讯WeTest全体员工在这里恭祝所有开发者新春快乐!   感谢所有开发者在2019年对腾讯WeTest的支持和帮助,新的一年我们将继续成长...

    WeTest质量开放平台团队
  • letswave7中文教程3:脑电数据预处理-ICA去除伪影

    独立成分分析(ICA)是一种盲信号分离(Blind Signal Separation,BSS)方法。ICA可线性建模如下图所示.

    脑机接口社区
  • 质造未来,首届腾讯WeTest技术交流开放日成功举办

    北京时间12月21日下午1点整,2018年度腾讯WeTest技术交流开放日在上海举办。盛大、巨人、电魂、bilibili、方趣等十余家来自不同优秀企业的测试技术...

    WeTest质量开放平台团队
  • 质造未来,首届腾讯WeTest技术交流开放日成功举办

    原文链接:https://wetest.qq.com/lab/view/435.html

    WeTest质量开放平台团队

扫码关注云+社区

领取腾讯云代金券