tom邮箱邮件发送与接收源码

邮件收发可用于无服务器的情况下控制软件的更新与操作等等。

.如果真 (连接收信服务器 (“pop.tom.com”, 110, 账号, 密码, 5000, 3) ＝ 假)
信息框 (“连接失败！”, 16, , )
返回 ()
.如果真结束
.如果 (获取邮件信息 (封数, 大小))
调试输出 (封数)
.否则
调试输出 (“获取封数失败！”)
.如果结束
封数 ＝ 封数 ＋ 1
.计次循环首 (封数, i)
邮件信息 ＝ 接收邮件 (封数 － i)
主题 ＝ 邮件信息.取主题 ()
.如果真 (主题 ≠ “”)
列表框1.加入项目 (主题, )
.如果真结束

.计次循环尾 ()
断开收信服务器 ()