Question

易语言接收邮件

如何写接收####@yeah.net发来的最近一封邮件？

Answer 1

.版本 2
.支持库 pop3
.支持库 spec

.局部变量 个数
.局部变量 大小
.局部变量 i, 整数型
.局部变量 邮件信息, 邮件信息
.局部变量 已接受, 逻辑型

已接受 ＝ 假
.如果 (连接收信服务器 (“服务器地址”, 110, “帐号”, “密码”, 30000, 3))
.如果真 (获取邮件信息 (个数, 大小))
.计次循环首 (个数, i)
邮件信息 ＝ 接收邮件 ()
.如果真 (邮件信息.取发件人地址="####@yeah.net")
调试输出 (“接收到邮件了”)
调试输出 (邮件信息.取超文本内容 ())
已接受 ＝ 真
跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果真 (已接受 ＝ 假)
信息框 (“没有####@yeah.net发来的任何邮件”, 0, )
.如果真结束
返回 ()
.如果真结束

.否则
信息框 (“服务器连接失败”, 0, )
.如果结束