如何修改提取邮件附件的VBA脚本 移除保存标记且不报编译错误

你之前修改触发编译错误，基本是因为删除代码时破坏了VBA的语法结构，比如只删了修改正文的两行，保留了无对应逻辑的If判断、或者If和End If数量不匹配。

正确修改有两种可选方案：

方案1：直接删除冗余逻辑 #

把原代码中负责修改邮件正文、保存邮件的部分完全删除，修改后的代码段如下：

End If
        Next i
    End If
Next

方案2：注释冗余逻辑（更稳妥，不易出错） #

如果担心删除代码破坏整体结构，也可以把不需要执行的行全部注释（行首加单引号即可），修改后如下：

End If
        Next i
        ' 以下为注释掉的添加保存标记、保存邮件的逻辑
        ' If xSaveFiles <> "" Then
        '    If xMailItem.BodyFormat <> olFormatHTML Then
        '        xMailItem.Body = vbCrLf & "The file(s) were saved to " & xSaveFiles & vbCrLf & xMailItem.Body
        '    Else
        '        xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xSaveFiles & "</p>" & xMailItem.HTMLBody
        '    End If
        ' End If
        ' xMailItem.Save
    End If
Next

两种修改方式都可以实现不修改原邮件、不添加保存标记，同时不会触发编译错误。

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