主题：看欧洲杯，解难题

 你能不能看懂代码？

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

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

你根本就没看过代码。

获取哪些，修改这句啊

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:*")