主题：看欧洲杯，解难题

 你能不能看懂代码？

 

 读取所有的邮件，取出附件和发送人就行啊。

 

 例子里该有的，都有了啊，你哪里没看懂？还是全部都不懂？

你根本就没看过代码。

 

获取哪些，修改这句啊

 

Dim seqSet As LumiSoft.Net.IMAP.IMAP_t_SeqSet = LumiSoft.Net.IMAP.IMAP_t_SeqSet.Parse("5:7")

 

获取全部，这样写啊

 

Dim folders = client.GetFolders(Nothing)
Dim sf = client.FolderStatus("INBOX")
msgbox(sf(0).MessagesCount )
Dim seqSet As LumiSoft.Net.IMAP.IMAP_t_SeqSet = LumiSoft.Net.IMAP.IMAP_t_SeqSet.Parse("1:" & sf(0).MessagesCount)

再简单点，这样写啊

 

Dim seqSet As LumiSoft.Net.IMAP.IMAP_t_SeqSet = LumiSoft.Net.IMAP.IMAP_t_SeqSet.Parse("1:*")

 代码里有，而且很明显啊。

认认真真看例子啊，你是外国人吗？中文难道还看不懂吗？

 你看不懂，你什么也做不了。

 

 获取邮件以后，肯定要把右键存放在你表里面的，不可能每次都要去重新获取全部信息吧？那样很慢。

 

 既然要保存信息，你先看懂代码啊，代码已经提示得你很明显了啊。从获取个数，到获取某邮件，到获取附件，全部都写给你了。

 

 最后再说一次，自食其力一下好吗。