Question

谁给我易语言接收邮件的源码 是接收 不是发送

Answer 1

.版本 2
.支持库 pop3

.子程序 接收邮件子程序, , , 正在接收第 * 封邮件，总共有 * 封邮件，剩余 * 封邮件。
.局部变量 邮件个数, 整数型
.局部变量 邮件大小, 整数型
.局部变量 计次, 整数型
.局部变量 邮件信息, 邮件信息
.局部变量 邮件附件, 附件信息, , "0"

标签1.标题 ＝ “正在连接服务器.....”
.如果 (连接收信服务器 (“pop.qq.com”, 110, “用户名”, “密码”, 30000, 3))
标签1.标题 ＝ “连接服务器成功，准备开始接收邮件！”
.否则
标签1.标题 ＝ “服务器连接失败。”
返回 ()
.如果结束
获取邮件信息 (邮件个数, 邮件大小)
.如果真 (邮件个数 ＝ 0)
标签1.标题 ＝ “暂时没有邮件！”
返回 ()
.如果真结束

.计次循环首 (邮件个数, 计次)
标签1.标题 ＝ “正在接收第 ” ＋ 到文本 (计次) ＋ “ 封邮件，总共有 ” ＋ 到文本 (邮件个数) ＋ “ 封邮件，剩余 ” ＋ 到文本 (邮件个数 － 计次) ＋ “封邮件。”
邮件信息 ＝ 接收邮件 (计次)
输出调试文本 (邮件信息.取文本内容 ())
邮件附件 ＝ 邮件信息.取附件 ()
邮件附件 [1].取名称 ()

.计次循环尾 ()
标签1.标题 ＝ “本次接收完成！”
断开收信服务器 ()