购买VB接收邮件附件（不给分，但给钱！）

要求：VB不调用MAPI控件进行接收邮件附件（也就是说不调用本机的OUTLOOK）！只需要根据预先设好的收件地址收取附件，并把附件保存在指定的目录下即可。程序设定每15分钟进行邮件接收，可使用第三方控件，如JMAIL或WINSOCK等，但必须免费使用第三方控件才行，付款100元RMB。看看有那件高手能帮忙，联系邮件如下：
emialchecker@21cn.com --------------------编程问答-------------------- 兄弟,要么就求高手帮你免费写一个或自己网上找个源码
要么就多给点儿分,要么就多给点儿钱
您这100块钱.... --------------------编程问答--------------------

--------------------编程问答-------------------- 没时间整, 以下代码有你要的功能
Dim rsLinkMan As New ADODB.Recordset
Dim rsLoadLinkMan As ADODB.Recordset
Dim pop3 As New jmail.pop3
Dim mailMessage As New jmail.Message
Dim msgs As New jmail.Messages
Dim atts As jmail.Attachments
Dim att As jmail.Attachment
Dim Recipients As jmail.Recipients
    pop3.Connect "***********", "*********", "********"
    Set att = New jmail.Attachment
    If pop3.Count > 0 Then
        Dim i As Integer, j As Integer
        For i = 1 To pop3.Count
            Label1.Caption = "正在接收第 " & i & " 条报告，共 " & pop3.Count & " 条报告"
            Set atts = pop3.Messages.Item(i).Attachments
            mailMessage.Charset = "GB2312"
            mailMessage.Encoding = "Base64"
            mailMessage.ISOEncodeHeaders = False
            strsubject = pop3.Messages.Item(i).Subject
            strdate = pop3.Messages.Item(i).Date '时间
            If pop3.Messages.Item(i).FromName = "ZY" Then  '发件人
                Dim NamePath As String
                NamePath = ""
                j = 0
                For j = 0 To atts.Count - 1
                    Set att = atts(j)
                    NamePath = App.Path & "\历史\" & att.Name
                    If Dir(NamePath) = "" Then Kill NamePath
                    att.SaveToFile (NamePath)
                    Label1.Caption = "正在处理第 " & i & " 条报告，共 " & pop3.Count & " 条报告"
                    clsj NamePath, Val(strsubject), strdate
                Next j
            End If
        Next i
    End If --------------------编程问答-------------------- 兄弟，有个问题，如下：
数据库的连接应该没什么用吧？
这几个变量或过程没定义哦
strsubject
strdate
clsj
另外，这段代码应该不是在免费版的JMAIL上运行吧， --------------------编程问答-------------------- 以上代码是我以前写的程序中的部分代码, 昨晚太晚就直接贴出来了! 其中的strsubject变量是用全局的所以没弄过来（储存邮件标题）、strdate是时间(这两个变量你自己定义), clsj是处理接收到的邮件, 和连接数据库的可以去掉! 相信你可以搞定的 --------------------编程问答-------------------- 搞定了吧
我以前做过VB 的
最近做过C#收发邮件的模块

补充：VB ,  网络编程