易语言 读取邮件

易语言 读取邮件,第1张

你的问题在于你只取了第一封信的第一行。这个邮件信息里不包含文本信息。所以你取出的是空。如果对方邮件不是文本型正文你也取不到邮件文本。要通过,邮件信息取超文本内容()或者取原始信息()的方式来读取邮件。很多邮件进行过加密或者编码处理。所以,即使你取到了原始信息,你还要进行解码处理才能正确获取邮件内容。

我采用的是QQ邮箱哈

建立两个时钟,时钟周期都为1000,在建立一个编辑框,然后输入一下代码:

版本 2
支持库 pop3
支持库 spec
支持库 iconv
支持库 shell

程序集 窗口程序集1

子程序 _时钟1_周期事件
局部变量 邮件, 邮件信息
局部变量 主题, 文本型
局部变量 转换编码, 文本型
局部变量 结果, 逻辑型

调试输出 (连接收信服务器 (“popqqcom”, 110, “你的QQ账号”, "你的QQ密码", 30000, 3))
邮件 = 接收邮件 (1)
主题 = 邮件取主题 ()
转换编码 = 到文本 (编码转换 (到字节集 (主题), #编码_UTF_8, #编码_GB2312, 结果))
编辑框1内容 = 转换编码
调试输出 (转换编码)

子程序 _时钟2_周期事件

如果 (编辑框1内容 = “12345”)
    关闭系统 (#关机, )
    时钟1时钟周期 = 0
    时钟2时钟周期 = 0
    删除邮件 (1)
    断开收信服务器 ()
否则
    删除邮件 (1)
    断开收信服务器 ()
如果结束

这是QQ邮箱的,其他邮箱也差不多

我说下怎么用:

打开此软件,然后你用手机或者其他电脑给你的QQ发一个主题是“12345”的邮件,电脑就关机啦!求采纳。。。

版本 2
支持库 pop3
如果真 (连接收信服务器 (“popqqcom”, 110, 编辑框1内容, 编辑框2内容, 30000, 3))
信息框 (“密码正确”, 0, )
返回 ()
如果真结束
信息框 (“密码错误”, 0, )


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zz/13110979.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-30
下一篇 2023-05-30

发表评论

登录后才能评论

评论列表(0条)

保存