高手们,问下:vb用CDO收网页邮箱邮件代码？？

Question

高手们,问下:vb发网页邮箱邮件很简单,下面这短短几行代码就可以,定义好服务器就可以了.
问下收邮件也简单吗?怎么写?网上搜了一下,好像发邮件的很多,收邮件的代码却没有
关于CDO 网上找了下没什么资料，msdn里面也没有，不懂，下面的代码我是看人家的。是收网页邮箱的邮件,比如mail.qq.com, 163, 139这种.每次去网吧上网要登录太麻烦,想直接打开自己的程序就可以把我多个邮箱的邮件全收下了看.不用很多功能,只需要能看就行.能对邮箱（服务器）里的邮件进行删除等操作那最好了。
谢谢!!
-------------
sub mail()
    NameSpace = "http://schemas.microsoft.com/cdo/configuration/"    Set Email = CreateObject("CDO.Message")
    Email.From = "[email protected]"                          '发信人
    Email.To = "[email protected]"                            '收信人
    Email.Subject = "11111111111111111"                                 '主题    y = "111111111111111111111111111"                           '附件    Email.TextBody = "111111111111111111111"
    Email.AddAttachment y
    With Email.Configuration.Fields
        .Item(NameSpace & "sendusing") = 2
        .Item(NameSpace & "smtpserver") = "smtp.qq.com"   '服务器地址
        .Item(NameSpace & "smtpserverport") = 25
        .Item(NameSpace & "smtpauthenticate") = 1
        .Item(NameSpace & "sendusername") = "1111111111111111111"       '用户名
        .Item(NameSpace & "sendpassword") = "**********************"     '密码
        .Update
    End With
    Email.Send
    Set Email = Nothing
end sub
----------

Answer 1

没意义啊，微软以前有个OutlookExpress，由于大家都不愿意使用，因为你把邮件下载下来后服务器端就没了，下次想看只能去你那台机器上找，不如直接上服务器端去看，还可以永久保留，随便换个地方都能看

Answer 2

“下载下来后服务器端就没了”----- 没关系的，没了就没了，看过就不用了的。主要是嫌登陆麻烦。
cdo行吗？能收邮件吗？？
谢谢！！