怎么批量删除附件而保留原件

hennycaoheng

office2007，公司的IT规则是不允许存PST，因此只能用服务器空间，但是很不够用
因此考虑邮件都复制到本地，然后再批量删除附件，那么将来找起来，可以在outlook搜索，然后到文件夹里面找邮件
不知道是否能实现？

闻启学

你这个要求真奇葩 楼主

日月星辰xu

安装Foxmail。那个是免的。

hennycaoheng

楼上2位，没办法，要能装其他软件也不用发愁了
就是公司IT政策比较BT啊。。。

hennycaoheng

求助啊，有人帮忙吗

hennycaoheng

求助啊，能实现吗

dsd999

1. Set myattachments = myItem.Attachments
   
2.         While myattachments.Count > 0
   
3.                myattachments.Remove 1
   
4.         Wend
   
5. myItem.save

复制代码

硅谷少年

我是跟dsd999的一个例子学的，略有改动：

Sub delatt()   '删除选中邮件的附件
Dim MyItem As Object
For Each MyItem In Application.ActiveExplorer.Selection
Set myattachments = MyItem.Attachments
        While myattachments.Count > 0
               myattachments.Remove 1
        Wend
MyItem.Save
Next
End Sub

实测好用，感谢 dsd999 大师！

江北好人

硅谷少年 发表于 2017-8-22 10:29
我是跟dsd999的一个例子学的，略有改动：

Sub delatt()   '删除选中邮件的附件

厉害了，解决了困扰我两年的问题。我的数据文件60多G。。。

rosesay

接着问下 若1个邮件中含有2个不同类型的附件， Iiem有2个，怎么选择性的删除呢，判断特定的对象怎么写？
用Size大小或包含文件扩展名选择