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

dsd999 · 发表于 2010-4-13 11:33

原帖由 eboy240 于 2010-4-13 11:22 发表
请问怎样才能做成自动执行而不是用按钮完成？比如我设置好规则，然后执行脚本就可以完成自动保存附件到指定文件夹呢？
顺便感谢楼主的教学。。

这个需要在Application的NewMail事件或者NewMailEx事件中写代码

lgcmeli · 发表于 2010-4-15 09:41

建议楼主帖子的标题写清楚了，别都是第1讲，2讲的，最好弄个具体内容

dsd999 · 发表于 2010-4-15 10:03

原帖由 lgcmeli 于 2010-4-15 09:41 发表
建议楼主帖子的标题写清楚了，别都是第1讲，2讲的，最好弄个具体内容

接受建议，标题已改。

zhangallen_3 · 发表于 2010-6-10 22:34

有人气，楼主继续加油！
我们会支持你的

zeroluo · 发表于 2010-11-10 14:53

很好，YYYYYY

inadequate · 发表于 2010-12-23 23:03

楼主，你的代码在我那里出了问题。
刚开始时可以执行，后来无论怎么按就是没有一点反正，咋回事嘛!我的是2003的。

今天我把按钮统统去掉，保存，再打开，然后再按，又可以执行了。不过当我再一次打开时，又不想作用了。楼主，是不是代码有问题哈

lmzhou1983 · 发表于 2010-12-24 09:03

我也遇到类似的问题，每次打开后都不好用，只有把按钮先删除，然后进入代码，按[F5]执行一下，这时按钮出来了，在点才有用，有没有什么办法解决。还有就是我在debug的过程中，终止执行。那么出来再按按钮就不管用了，也只能再删除，再[F5].希望得到帮助，谢谢

inadequate · 发表于 2010-12-24 12:15

偶解决了，诸位可以改一下咯
On Error Resume Next
Dim vsoCommandBar As CommandBar
Set vsoCommandBar = Outlook.ActiveExplorer.CommandBars("ExcelClub")
If (vsoCommandBar Is Nothing) Then
Set vsoCommandBar = Outlook.ActiveExplorer.CommandBars.Add("ExcelClub", msoBarTop, , True)

06443420 · 发表于 2011-3-2 09:34

有人可以告诉我outlook 2007如何“选中”一个邮件吗

suiguai · 发表于 2011-3-8 08:33

谢谢楼主分享

		自动登录	找回密码
密码			免费注册

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