从Outlook中检索电子邮件的脚本

Question

这是我从Outlook收件箱中检索电子邮件并存储其附件的脚本。

问题是它不能正常工作。它能够从未读邮件中收集附件并将其存储在SavePath中，但不知何故，当它已阅读三封邮件时，它就停止了。

奇怪的是，当它再次执行时，它能够收集剩余的电子邮件，但不是所有剩余的未读电子邮件。

E。g:我在收件箱中有6封未读邮件，第一次执行时，只有3封邮件被阅读，它们的附件被收集。第二次执行时，它读取接下来的2封电子邮件。第三次执行时，剩余的电子邮件被读取。

我不明白发生了什么事，为什么不是所有的邮件都同时阅读。

Dim SavePath
Dim Subject
Dim FileExtension
SavePath = "C:IN"
Subject = "'Transfer File'"
FileExtension = "ARmessage"
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(6) 'Inbox
Set colItems = objFolder.Items
Set colFilteredItems = colItems.Restrict("[Unread]=true")
Set colFilteredItems = colFilteredItems.Restrict("[Subject] = " & Subject)
For Each objMessage In colFilteredItems
    intCount = objMessage.Attachments.Count
    If intCount > 0 Then
        For i = 1 To intCount
            ' if right(Ucase(objMessage.Attachments.Item(i)),9) = FileExtension then
                objMessage.Attachments.Item(i).SaveAsFile SavePath &  _
                    objMessage.Attachments.Item(i).FileName
            ' End If
        Next
        objMessage.Unread = False
    End If
Next

Answer 1

不要对正在更改的集合使用"for each" -受限集合是动态的，当您将消息标记为已读时，集合就会更改。使用向下的for循环:

dim k
For k = colFilteredItems.Count to 1 step -1
  set objMessage  = colFilteredItems.Item(k)
  ...
next