怎样批量保存邮件附件？

inadequate · 发表于 2010-12-21 16:14

谢谢，兄弟，很有效。
Outlook VBA开发第二讲的代码我拷进了thisoutlooksession中，刚开始时可以执行，今天没反应了。是怎么一回事呢？

inadequate · 发表于 2010-12-21 17:04

我的是2003。现在用sub代替了，运行时直接按。
还有一个问题，我在代码中加了 objItem.SenderName，老是出现提示要不要执行，要去掉提示怎么解决呢？

[ 本帖最后由 inadequate 于 2010-12-21 19:29 编辑 ]

dsd999 · 发表于 2010-12-21 16:58

原帖由 inadequate 于 2010-12-21 16:14 发表
谢谢，兄弟，很有效。
Outlook VBA开发第二讲的代码我拷进了thisoutlooksession中，刚开始时可以执行，今天没反应了。是怎么一回事呢？

outlook的版本？

dsd999 · 发表于 2010-12-21 21:21

把提示截图上来

inadequate · 发表于 2010-12-22 19:58

For Each Attachment In objItem.Attachments
Attachment.SaveAsFile "c:\附件\" & objItem.SenderName & Attachment.FileName
Next

[ 本帖最后由 inadequate 于 2010-12-22 19:59 编辑 ]

dsd999 · 发表于 2010-12-22 20:26

2）在做Outlook VBA开发时如何禁止OUTLOOK的安全提示
http://club.excelhome.net/thread-199798-1-1.html

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

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

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

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

解决了!
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)

inadequate · 发表于 2010-12-28 21:46

兄弟，如果我要下载收件箱中名为“我的邮件”文件夹中的文件，要怎么改？
For Each objItem In Application.ActiveExplorer.Selection
If objItem.Class = olMail Then
If (DateDiff("d", objItem.ReceivedTime, Now) < 30) Then
For Each Attachment In objItem.Attachments
Attachment.SaveAsFile "c:" & Attachment.FileName
Next
End If
End If
Next

120HYH · 发表于 2011-2-28 09:37

有点意思，学习

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

[求助] 怎样批量保存邮件附件？

最新热点 /1