易语言 读取邮件

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

我采用的是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, )

---