如何用代码拆离附件,然后存到本地的一个文件夹中?

991god 2003-08-30 06:44:50
我这里有好多文档都有附件,我想用代码把他们一次拆离下来,存入本地的文件夹中,如和做?

特例是拆离通讯录中的id,存入本地,并删除附件!
...全文
39 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
waffie 2003-08-30
  • 打赏
  • 举报
回复
re$="e:\temp\"

If olddoc.HasEmbedded=True Then
objs = Evaluate("@AttachmentNames",olddoc)
Forall obj In objs
Set fujianobject = olddoc.getattachment(obj)
Call fujianobject.Extractfile(re$ & fujianobject.source)
Call fujianobject.Remove
end Forall
call odldoc.save(false,false)
End If

535

社区成员

发帖
与我相关
我的任务
社区描述
企业开发 Exchange Server
社区管理员
  • 消息协作社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧