怎样批量保存邮件附件？

inadequate

怎样批量保存邮件附件？
例如：当我启动时或按一个按钮时，邮件中一个星期收到的全部附件会自动下载到D盘中名叫“附件”的文件夹里。
谢谢

dsd999

http://club.excelhome.net/viewth ... p;page=1#pid3652903

这是保存一封邮件的附件，如果你回VBA，试着改改实现你的要求。

不会的话我帮你。

inadequate

谢谢楼主，可是这些代码哪个放入thisoutlooksession中，哪个要放入模块中呢？我弄不清楚。楼主可否告诉在下一声？

inadequate

For Each objItem In Application.ActiveExplorer.Selection
If objItem.Class = olMail Then
For Each Attachment In objItem.Attachments
Attachment.SaveAsFile "c:\" & Attachment.FileName
Next
End If
请问楼主，如果我要下载30天之内所有邮件的附件(有的邮件没有附件，并且不区分是否打开或未读)，要怎么改呢？
谢谢

dsd999

原帖由 inadequate 于 2010-12-18 22:04 发表
For Each objItem In Application.ActiveExplorer.Selection
If objItem.Class = olMail Then
For Each Attachment In objItem.Attachments
Attachment.SaveAsFile "c:\" & Attachment.FileName
Next
End If
请 ...

今天没时间，明天帮你。

dsd999

For Each objItem In Application.ActiveExplorer.Selection
If objItem.Class = olMail Then
For Each Attachment In objItem.Attachments
Attachment.SaveAsFile "c:\" & Attachment.FileName
Next
End If

这段代码 保存附件和 是不是未读没有关系。
30天从什么时候算，是你选中的邮件？还是当天的时间？

inadequate

兄弟，是以当天的时间为准。有办法吗？我对outlook的代码不太熟悉，懂得excel vba.

dsd999

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

inadequate

兄弟，能不能改改。把For Each objItem In Application.ActiveExplorer.Selection去掉。
我要的是，凡是30天之内的附件都下载。

dsd999

Dim objOutlook As New Outlook.Application
Set mobjOutlook = objOutlook.GetNamespace("MAPI")
Set objFolder = mobjOutlook.GetDefaultFolder(olFolderInbox)
For Each objItem In objFolder.Items
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