Outlook VBA开发第二讲-保存选中邮件的所有附件到一个目录中

魔法少年红领巾

我最近自己写的脚本也出现这种问题  提示 “此种类型附件无法操作”的问题      在一台电脑上好用 另一台电脑上就提示这样，我也不知道什么问题 写了忽略错误的error的语句也不能跳出，求指导

pflsysu

谢谢！很好用，要学习，顶起！

jiminyanyan

学习学习。。。。

billzhaopa

好贴，收藏，感谢。

paladinhch

好贴，非常难得的outlook vba资料，楼主辛苦了，顶起~~~

tyxvba7529

eboy240 发表于 2010-4-13 11:22
请问怎样才能做成自动执行而不是用按钮完成？比如我设置好规则，然后执行脚本就可以完成自动保存附件到指定 ...

这个百度就有；
代码如下， 我在使用。
然后建个规则。

1. Sub SaveAttachment(ByVal Item As Object, path$, Optional condition$ = "*")
   
2.     Dim olAtt As Attachment
   
3.     Dim i As Integer
   
4. 
   
5.     If Item.Attachments.Count > 0 Then
   
6.         For i = 1 To Item.Attachments.Count
   
7.             Set olAtt = Item.Attachments(i)
   
8.             ' save the attachment
   
9.             If olAtt.FileName Like condition Then
   
10.                 olAtt.SaveAsFile path & olAtt.FileName
    
11.             End If
    
12.         Next
    
13.     End If
    
14.     Set olAtt = Nothing
    
15. End Sub
    
16. 
    
17. Sub 保存(Item As Outlook.MailItem)
    
18. SaveAttachment Item, "D:\文件夹称", "*.xlsx"
    
19. 
    
20. End Sub

复制代码

硅谷少年

非常有用，非常感谢！
对照这个，我改成了我的需求：
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

郑州牧专段鹏举

继续支持，继续学习！

dqswzh

学习了，谢谢！

wanglei569

从没用过Outlook的这种功能，能具体说下从头到尾怎么操作吗？我连复制代码的地方都找不到，谢谢！