如何使用Lua阅读电子邮件？

2014-6-18 12:16:34
收藏：0
阅读：186
评论：2

我正在编写一个脚本，可以使用LuaSocket SMTP发送电子邮件。现在，我想让我的脚本也能够读取我的电子邮件。

我在一个支持IMAP的服务中有一个电子邮件帐户。

IMAP主机和端口：example.com：143
我的电子邮件：doesnotexist@example.com
密码：不告诉你

如何使我的脚本从该服务获取电子邮件，以便我可以显示其内容？

编辑：

我尝试了https://github.com/vrld/imap4.lua中的imap4，但似乎没有完成。

我尝试了这个示例：

require 'luarocks.require'

local imap4 = require 'imap4'

local username = "doesnotexist@example.com"
local password = "notsaying"

local connection = imap4('example.com', 143)

print(table.concat(connection:capability(), ', '))
assert(connection:isCapable('IMAP4rev1'))

connection:login(username, password)

for mb, info in pairs(connection:lsub()) do
    local stat = connection:status(mb, {'MESSAGES', 'RECENT', 'UNSEEN'})
    print(mb, stat.MESSAGES, stat.RECENT, stat.UNSEEN)
end

local info = connection:examine('INBOX')
print(info.exist, info.recent)

for _,v in pairs(connection:fetch('UID BODY.PEEK[HEADER.FIELDS (From Date Subject)]', (info.exist-3)..':*')) do
    print(v.id, v.UID, v.BODY.value)
end

connection:logout()

我只添加了用户名和密码，并从原始示例中更改了服务器和端口，将最近的获取从4更改为3。我还删除了注释，因为它们很多。除此之外，我没有修改其他任何东西，基本上是相同的示例。

它似乎使用我的凭据和正确的服务器和端口登陆正确，但是它有某种我无法调试的问题。

上面的示例输出：

IMAP4rev1, CHILDREN, NAMESPACE
INBOX.Sent  3   0   0
INBOX   4   0   0
4   0
lua: example.lua:24: attempt to index field 'BODY' (a nil value)
stack traceback:
    example.lua:24: in main chunk
    [C]: ?

它显示我收件箱中有4封电子邮件，我的发件箱中有3封，这是正确的。

点赞
用户2328287
用户2328287

这个例子使用imap4库来获取邮件信息，使用pop3.message库来解析。

local imap4 = require "imap4"
local Message = require "pop3.message"

local connection = imap4('imap.qip.ru', 143)

assert(connection:isCapable('IMAP4rev1'))

connection:login('****', '****')

-- 以只读权限选择 INBOX。
local info = connection:examine('INBOX')
print(info.exist, info.recent)

-- 列出最近 4 封邮件的信息。
for _,v in pairs(connection:fetch('RFC822', (info.exist-4)..':*')) do
    print("-------------------------")
    local msg = Message(v.RFC822)
    print("ID:         ", msg:id())
    print("subject:    ", msg:subject())
    print("to:         ", msg:to())
    print("from:       ", msg:from())
    print("from addr:  ", msg:from_address())
    print("reply:      ", msg:reply_to())
    print("reply addr: ", msg:reply_address())
    print("trunc:      ", msg:is_truncated())
    for i,v in ipairs(msg:full_content()) do
        if v.text then  print("  ", i , "TEXT: ", v.type, #v.text)
        else print("  ", i , "FILE: ", v.type, v.file_name or v.name, #v.data) end
    end
end

-- 关闭连接
connection:logout()
2014-06-18 05:59:30
用户88888888
用户88888888

首先尝试 Moteus 的解决方案。仅在您需要使用的服务器不支持 RFC822 或通常不符合标准时才使用我的示例。

在本答案中，我将简要解释为什么 原始示例 不起作用，并且给出一个没有 RFC822 的示例，因为我必须使用的服务器不理解 RFC822 和许多其他应该根据 IMAP 4 标准 理解的关键字。

在示例中，我必须更改：

connection:fetch('UID BODY.PEEK[HEADER.FIELDS (From Date Subject)]', (info.exist-3)..':*'))

为：

connection:fetch('(UID BODY.PEEK[HEADER.FIELDS (From Date Subject)])', (info.exist-3)..':*'))

注意括号，这就是示例无法正常工作的原因。

Moteus 的使用 RFC822 的答案对我不起作用，因为我必须使用的服务器是非标准的。这是我让它正常工作的方法：

local imap4   = require "imap4"
local Message = require "pop3.message"

local connection = imap4('imap.qip.ru', 143)

assert(connection:isCapable('IMAP4rev1'))

connection:login('****', '****')

-- Select INBOX with read only permissions.
local info = connection:examine('INBOX')
print(info.exist, info.recent)

-- List info on the 4 most recent mails.
for _,v in pairs(connection:fetch('(UID BODY.PEEK[HEADER.FIELDS (Subject To From Date)])', (info.exist-4)..':*')) do
    print("-------------------------")
    local msg = Message(v.BODY.value)
    print("ID:         ", msg:id())
    print("subject:    ", msg:subject())
    print("to:         ", msg:to())
    print("from:       ", msg:from())
    print("from addr:  ", msg:from_address())
    print("reply:      ", msg:reply_to())
    print("reply addr: ", msg:reply_address())
    print("trunc:      ", msg:is_truncated())
    for i,v in ipairs(msg:full_content()) do
        if v.text then  print("  ", i , "TEXT: ", v.type, #v.text)
        else print("  ", i , "FILE: ", v.type, v.file_name or v.name, #v.data) end
    end
end

-- close connection
connection:logout()

与 Moteus 的示例不同，您需要单独获取文本。

您可以像这样获取邮件的文本：

connection:fetch('(BODY.PEEK[TEXT])', id)
2014-06-18 12:45:43

作者:

用户88888888

用户88888888
推荐文章