关于保存邮件中附件的问题

Question

我想将收到的邮件中的附件保存到指定的文件夹中，代码如下：但程序执行到这一句(msg.DataSource.Open(urlmsg))时就老是不动了，其中的邮件地址我直在浏览器中输入则可以打开邮件,请各位大侠指点，邮件地址的写法是否正确？ Dim strmbxalias As String
        Dim urlmsg As String
        Dim msg As CDO.Message
        Dim fd As ADODB.Field
        strmbxalias = "administrator"
        urlmsg = "http://10.142.2.221/Exchange/administrator/%E6%94%B6%E4%BB%B6%E7%AE%B1/gaqkpb2.EML"
        msg = New CDO.Message
        msg.DataSource.Open(urlmsg)        For Each fd In msg.Fields
            If Not IsArray(fd.Value) Then
                Response.Write(fd.Name & fd.Value)
            Else
                Response.Write(fd.Name & "[multi-valued]")
            End If
        Next fd
        fd = Nothing
        msg = Nothing

Answer 1

不好意思，贴错了代码应该为下面一段
        Dim msg As New CDO.Message
        Dim atch = msg.BodyPart
        Dim strmbxalias As String
        Dim urlmsg As String
        strmbxalias = "administrator"
        urlmsg = "http://zhzx.gov/Exchange/administrator/%E6%94%B6%E4%BB%B6%E7%AE%B1/gaqkpb2.EML"           
        msg.DataSource.Open(urlmsg)
        If msg.attachments.count > 0 Then
            For Each atch In msg.attachments
                Response.Write(atch.contentmediatype(, atch.filename))
                atch.savetofile("D:\" & atch.filename)
            Next
        End If

Answer 2

http://blog.csdn.net/goody9807/category/20098.aspx

Answer 3

http://blog.csdn.net/goody9807/category/20098.aspx

Answer 4

to goody9807
那是发邮件，我是要处理以收到的邮件

Answer 5

用Jmail接收
留下邮箱，我发给你
http://community.csdn.net/Expert/topic/3375/3375376.xml