为何需多次运行For Each代码才能移动Outlook邮件？

你遇到的问题根源在于遍历Outlook文件夹Items集合时直接修改集合（移动邮件）会导致遍历错位。当用For Each正向遍历，每移动一封邮件，原集合的元素会被移除，后续循环会跳过下一个元素，所以需要多次运行才能处理完所有符合条件的邮件。

将遍历方式改为反向遍历（从最后一个邮件开始往前处理），这样即使移动邮件，也不会影响未处理的邮件索引，确保一次性处理所有符合条件的邮件。

修改后的代码如下：

Sub Search_Move_Email()
    Dim olItem As Outlook.MailItem
    Dim i As Integer
    Dim sText As String
    Dim myNameSpace As Outlook.NameSpace
    Dim myDestFolder As Outlook.MAPIFolder
    Dim mySearchFolder As Outlook.MAPIFolder
    Dim itemsCount As Integer

    Set myNameSpace = Application.GetNamespace("MAPI")
    Set myDestFolder = myNameSpace.Folders("root").Folders("archiv")
    Set mySearchFolder = myNameSpace.Folders("root").Folders("alert-check")
    
    ' 获取文件夹内邮件总数，从最后一个开始反向遍历
    itemsCount = mySearchFolder.Items.Count
    For i = itemsCount To 1 Step -1
        Set olItem = mySearchFolder.Items(i)
        sText = olItem.Body
        
        If (InStr(1, sText, "no rows selected", vbTextCompare) > 0) Or _
            (InStr(1, sText, "Es wurden keine Zeilen ausgewählt", vbTextCompare) > 0) Then
            olItem.Move myDestFolder
        End If
    Next i
End Sub

• 移除了原代码中重复定义的MailItem变量，避免变量混淆
• 改用For i = itemsCount To 1 Step -1反向遍历，彻底解决集合元素移除导致的遍历错位问题
• 先获取邮件总数itemsCount，确保遍历范围准确无误

内容的提问来源于stack exchange，提问作者Monkeyboard