主题：[修改]利用LumiSoft通过pop协议或imap协议接收邮件实例（支持各种邮箱）

如何解决下载过的邮件不在下载，类似Outlook或者foxmail这种?

---------------------------
版本:2014.11.11.1
---------------------------
代码执行出错，错误信息：

 

LumiSoft.Net.POP3.Client.POP3_ClientException: -ERR Message can not load

   在 Microsoft.VisualBasic.CompilerServices.Symbols.Container.InvokeMethod(Method TargetProcedure, Object[] Arguments, Boolean[] CopyBack, BindingFlags Flags)

   在 Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack)

   在 UserCode.Test()
---------------------------
确定  
---------------------------

 

1、保存邮件

 

2、判断uid是否下载过，下载过就不下载了

恢复42楼，请上传例子。

我已经做了一个数据库  我的邮箱有1300+封邮件 现在收取了525封 我用代码监测发现 每次到了第526封就出现上面的错误  我的代码如下

 

Dim pop3Server As String = "pop.exmail.qq.com"
Dim pop3Port As Integer = "995"
Dim pop3UseSsl As Boolean = True
Dim username As String = "测试"
Dim password As String = "测试"
Using pop3 As New LumiSoft.Net.POP3.Client.POP3_Client()
pop3.Connect(pop3Server, pop3Port, pop3UseSsl)
pop3.Login(username, password )
Dim infos As object = pop3.messages()
msgbox(Infos.count)
Dim msgs As object = pop3.messages()
Dim i As Integer
'获取某邮件信息
For i=0 To Infos.count-1
    output.show(i)
    Dim dr As DataRow=DataTables("收件箱").find("uid='" & msgs(i).uid & "'")
    If dr Is Nothing Then
        Dim messageBytes = msgs(i).MessageToByte
        Dim mime_message = LumiSoft.Net.Mail.Mail_Message.ParseFromByte(messageBytes)
        If mime_message IsNot Nothing  Then
            Dim fjs = mime_message.GetAttachments(True, True)
           
           
            Dim r As Row=Tables("收件箱").addnew
            r("uid")=msgs(i).uid
            If mime_message.From(0).DisplayName="" Then
                r("发件人")= mime_message.From(0).Address
            Else
                r("发件人")=mime_message.From(0).DisplayName
            End If
            r("发件时间")=mime_message.Date
            r("主题")=mime_message.Subject
            r("附件数")=fjs.length
            If mime_message.BodyText IsNot Nothing Then
                r("正文")=mime_message.BodyHtmlText
            Else
                r("正文")=mime_message.bodytext
            End If
            r("发件人地址")=mime_message.From(0).Address
            r.locked=True
            r.save
           
        End If
       
    End If
Next
pop3.disconnect
End Using

无语，你45楼的方法无法获取QQ邮箱的全部右键啊。

 

请好好看1楼的帖子，用imap协议获取啊。

imap协议那个我点了没有任何反应  我45楼的方法可以获取全部qq邮箱邮件 有几个邮箱已经完整获取到了 就是现在这个邮箱出现这个错误  说明代码哪里缺少一个判断

而且你那个例子 我只要一改帐号密码 就出现未知编译错误

 

删除引用，重新添加dll引用。我测试没问题。

 

你原来的代码如果不想报错，就加上 try catch

打开报错： 未定义类型 "LumiSoft.net.pope.client.pop3_Client"