|
楼主 |
发表于 2018-8-10 10:54:23
|
显示全部楼层
辽宁省沈阳市
.版本 2
.程序集 程序集1
.程序集变量 imap, IMAP类
.子程序 _启动子程序, 整数型
_临时子程序 ()
返回 (0)
.子程序 _临时子程序
.局部变量 a, 文本型
.如果真 (imap.连接收信服务器_IMAP (“imap.xxxx.com”, 143, “username”, “password”))
imap.发送IMAP命令 (“list ” + #引号 + #引号 + “ *”) ' 遍历所有文件夹
imap.发送IMAP命令 (“Select INBOX”) ' 选择目标操作文件夹为收件箱
imap.发送IMAP命令 (“Search ALL”) ' 搜索文件夹下所有邮件
imap.发送IMAP命令 (“fetch 2 (body[header.fields (subject)])”) ' 抓取邮件主题
imap.发送IMAP命令 (“fetch 2 (body[header.fields (from)])”) ' 抓取邮件来源
imap.发送IMAP命令 (“fetch 2 (UID)”) ' 邮箱全局唯一标识符数字序号
imap.发送IMAP命令 (“fetch 2 (flags)”) ' 是否已读/删除等状态cha询
imap.发送IMAP命令 (“STATUS INBOX (MESSAGES)”) ' cha询收件箱邮件总数
imap.发送IMAP命令 (“UID FETCH 1514872022 body”) ' 使用UIDcha询范本
a = imap.发送IMAP命令 (“fetch 28 body[2]”) ' 下载第一个附件,取出正文,用base64解码得到字节集数据,写到文件就OK
imap.断开连接 ()
|
|