怎样批量保存邮件附件？

jiminyanyan · 发表于 2016-7-27 19:12

dsd999 发表于 2010-12-21 15:38
Dim objOutlook As New Outlook.Application
Set mobjOutlook = objOutlook.GetNamespace("MAPI")
Set ob ...

这个outlook 2010 里好像没反应呢

闻启学 · 发表于 2016-7-27 23:32

jiminyanyan 发表于 2016-7-27 19:12
这个outlook 2010 里好像没反应呢

是不是你的方法有问题哦　

jiminyanyan · 发表于 2016-7-27 23:46

闻启学发表于 2016-7-27 23:32
是不是你的方法有问题哦　

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
这段好像执行不到里面

jiminyanyan · 发表于 2016-7-27 23:54

闻启学发表于 2016-7-27 23:32
是不是你的方法有问题哦　

为什么上面那个收件箱的可以下载，下面那个收件箱的不能下载。。。。

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

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