以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  看欧洲杯,解难题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86290)

--  作者:hbhb
--  发布时间:2016/6/15 0:48:00
--  看欧洲杯,解难题
袍大师::好!请教接收邮件附件实例
您的大作,能否劳驾再指导一下下面的功能如何实现
1、窗口中增加一复选控件,按时间顺序列出所有附件及发送人、事件
2、选择后,下载选定的控件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:接收邮件例子 全部.zip


--  作者:hbhb
--  发布时间:2016/6/15 0:49:00
--  
不是事件,是时间
--  作者:hbhb
--  发布时间:2016/6/15 0:50:00
--  
不好意思,不是控件,是附件。
--  作者:大红袍
--  发布时间:2016/6/15 9:46:00
--  

 你能不能看懂代码?

 

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

 

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

[此贴子已经被作者于2016/6/15 9:48:37编辑过]

--  作者:hbhb
--  发布时间:2016/6/15 11:35:00
--  
就是如何读取所有的邮件,取出附件和发送人、时间不会呀!
--  作者:hbhb
--  发布时间:2016/6/15 11:37:00
--  
qq邮箱的部分不懂?临门一脚不行呀。再加上控不了球。
--  作者:大红袍
--  发布时间:2016/6/15 11:42:00
--  

你根本就没看过代码。

 

获取哪些,修改这句啊

 

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)

[此贴子已经被作者于2016/6/15 11:43:02编辑过]

--  作者:大红袍
--  发布时间:2016/6/15 11:43:00
--  

再简单点,这样写啊

 

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


--  作者:hbhb
--  发布时间:2016/6/15 11:55:00
--  
谢谢!
附件、发送人、发送时间等属性各是什么?  
您是c罗、马拉多拉、贝利级的!我是中国z级业余的业余级。点球能罚进,前提是守门员是瞎子武大郎。

--  作者:大红袍
--  发布时间:2016/6/15 11:59:00
--  
 代码里有,而且很明显啊。