[修改]利用LumiSoft通过pop协议或imap协议接收邮件实例（支持各种邮箱） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [修改]利用LumiSoft通过pop协议或imap协议接收邮件实例（支持各种邮箱）

共有42430人关注过本帖树形打印复制链接主题：[修改]利用LumiSoft通过pop协议或imap协议接收邮件实例（支持各种邮箱）

大红袍

小大 71楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/20 10:07:00 [只看该作者]

卸载重新安装你的foxtable。

如果你没有安装.net framework 3.5，那就安装一下。

rjh4078

小大 72楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3353 积分：24705 威望：0 精华：0 注册：2012/3/26 21:47:00

Post By：2016/5/20 10:33:00 [只看该作者]

还是不行错误和之前一样

此主题相关图片如下：qq截图20160520103142.png

大红袍

小大 73楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/20 10:35:00 [只看该作者]

那就不知道什么原因了，反正我和大家测试都没问题。

rjh4078

小大 74楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3353 积分：24705 威望：0 精华：0 注册：2012/3/26 21:47:00

Post By：2016/5/20 10:41:00 [只看该作者]

那这个不管了吧我先用pop的做吧现在有个问题获取到了邮件的正文html内容我发现有很多内嵌图片格式如：cid：xxxx 什么的这个要怎么转换？

大红袍

小大 75楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/20 10:56:00 [只看该作者]

mark 内嵌图片转换

Dim bmp As new Bitmap("d:\test.jpg")

Dim ms As new System.Io.MemoryStream()
bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

Dim arr(ms.Length) As Byte
ms.Position = 0
ms.Read(arr, 0, ms.Length)
ms.Close()

Dim strbaser64 As String = Convert.ToBase64String(arr)

output.show(strbaser64)

'------------------ 还原

Dim bs As Byte() = Convert.FromBase64String(strbaser64)
Dim mms As New IO.MemoryStream(bs)
Dim image As Image = Image.FromStream(mms)
image.save("d:\abc.jpg")

rjh4078

小大 76楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3353 积分：24705 威望：0 精华：0 注册：2012/3/26 21:47:00

Post By：2016/5/20 11:07:00 [只看该作者]

以下是引用大红袍在2016/5/20 10:56:00的发言：

mark 内嵌图片转换

Dim bmp As new Bitmap("d:\test.jpg")

Dim ms As new System.Io.MemoryStream()
bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

Dim arr(ms.Length) As Byte
ms.Position = 0
ms.Read(arr, 0, ms.Length)
ms.Close()

Dim strbaser64 As String = Convert.ToBase64String(arr)

output.show(strbaser64)

'------------------ 还原

Dim bs As Byte() = Convert.FromBase64String(strbaser64)
Dim mms As New IO.MemoryStream(bs)
Dim image As Image = Image.FromStream(mms)
image.save("d:\abc.jpg")

谢谢老师

比如我在源码中看到 <img src=cid:_1_08E7C94808E7C6DC00362DA848257CED>

直接将_1_08E7C94808E7C6DC00362DA848257CED 换成代码中的变量strbaser64进行转换吗？