请问如何获取邮件中附件的地址

[WUNEN]

查询邮件的语句（MailStrQuery）如下：
Set MailConn = CreateObject("Adodb.Connection")
Set MailRs = CreateObject("Adodb.RecordSet")
MailConn.Provider = "ExOLEDB.DataSource"
MailConn.Open MailBoxurl
MailStrQuery = "select ""DAV:href"" as href,""DAV:displayname"" as displayname,"
MailStrQuery = MailStrQuery & """urn:schemas:httpmail:subject"" as subject,"
MailStrQuery = MailStrQuery & """urn:schemas:httpmail:read"" as if_read,"
MailStrQuery = MailStrQuery & """urn:schemas:httpmail:from"" as mail_from,"
MailStrQuery = MailStrQuery & """urn:schemas:httpmail:date"" as maildate,"
MailStrQuery = MailStrQuery & """urn:schemas:httpmail:hasattachment"" as attachment"
MailStrQuery = MailStrQuery & " from scope('shallow traversal of """ & MailBoxurl & """') "
MailStrQuery = MailStrQuery & "where ""DAV:iscollection"" = false "

其中""DAV:href"" as href用来查找邮件的地址，请问附件的地址该如保写啊？

[xzhy80]

名称
功能 格式
Attach 添加附件 Sub AttachFile(Source, [FileName], [EncodingMethod])
AttachURL 以格式添加附加和数据 Sub AttachURL(Source,ContentLocation, [ContentBase], [EncodingMethod])
BCC 以“，”分隔的接收者列表（暗送） 字符串类型属性
Body TextHTML
字符串类型属性
bodyformat 邮件正文格式 0:HTMl1:Text
CC 以“，”分隔的接收者列表（抄送） 字符串类型属性
ContentBase 带有附件的邮件中正文采用的基地址 字符串类型属性
ContentLocation 带有附件的邮件中正文采用的 字符串类型属性
From 邮件发送方地址 字符串类型属性
Importance 邮件级别 0: 1 2:
Send 发送邮件 Sub Send([From], [To], [Subject], [Body], [Importance]) 各个参数可以参考上下文属性
SetLocaleIDs 设置新消息的代码页标识 Sub SetLocaleIDs(CodePageID As Long)
Subject 邮件主题 字符串类型属性
To 以“，”分隔的接收者地址列表 字符串类型属性
Value 任意的邮件头的值 字符串类型属性
Version 当前集合数据对象库（）的版本号 只读字符串类型属性

[WUNEN]

to xzhy80
我不是要发邮件，而是邮件收到后，我虽要去分析邮件中附件的内容，因此我想知道怎么样得到这个附件的地址。现在我只知道邮件地址是""DAV:href"" 得到的，但不知道附件地址要如何得到，相当于数据库中的列名，但这个列我不知道要用什么列名