用CDO下载Exchange附件的问题,欢迎高手知道和探讨@!!

[zjkun15]

现在我遇到一个很难办的问题,要通过ASP或VB\VC(可以做成组件在ASP里调用)从exchange
Folder上下载附件,保存到客户端的文件夹中,可不是通过IE的功能完成,所有功能要自己实现!
我现在实现了一部分,但引用的是cdo for exchange2000,在客户端实现不了!!!
请大家帮忙,谢谢了,我编写的代码是这样的:
Private Function LoadFile(url As String)
If url = "" Then Exit Function
Dim iMsg As New cdo.Message
Dim iBp As cdo.IBodyPart
Dim rc As New ADODB.Record
If Dir("c:\TempLoad\", vbDirectory) = "" Then '如果没有找到保存下载文件的目录，则创建
MkDir "c:\TempLoad"
End If
rc.Open url
iMsg.DataSource.OpenObject rc, "_Record" '读出附件
Set iBp = iMsg.Attachments.Item(1) '
iBp.SaveToFile "c:\TempLoad\" & File '将附件保存到本地文件中File为文件名称
End Function

[miaomiaoga]

但它能夠直接寫入客戶端啊？能通過IE直接寫？

[bobar]

如果是组件的话，他在服务器端执行，因此是保存在服务器上

建议用webdav来做

[wilddragon]

支持一把

[wilddragon]

值得注意

[wilddragon]

哈哈

[zjkun15]

我已经用一个API函数实现了