如何通过VBA验证Outlook接收的未读邮件含.rsp格式附件

需求为验证Outlook接收的邮件是否带有附件，且需校验附件文件类型为.rsp。
现有已编写的Outlook VBA基础代码可获取收件箱首封未读邮件，原代码存在拼写笔误，且缺少附件校验逻辑，原代码如下：

Set outObj= CreateObject("outlook.Application")
Set outAccount = outObj.Session.Accounts.item(1)
Set nameSpace = outObj.GetNameSpace("MAPI")
Set myFolder = outAccount.Session.GetDefaultFolder(6)
Set myitem= myFolfer.items.Restrict("[UnRead]=True").GetFirst     
' 需补充逻辑：校验邮件是否存在后缀为.rsp的附件

核心逻辑为遍历目标邮件的附件集合，匹配文件后缀，实现时注意兼容后缀大小写、排除Outlook自动生成的内嵌隐藏资源（如签名图片、样式占位文件）避免误判。

• 第一步：修正原代码笔误：原代码中myFolfer为拼写错误，正确写法为myFolder
• 第二步：获取到目标邮件后，遍历Attachments附件集合
• 第三步：对每个附件提取文件名后缀，统一转小写后和.rsp做匹配
• 第四步：可按需增加附件大小判断逻辑，过滤内嵌的小体积隐藏附件

Sub CheckUnreadEmailRspAttachment()
    Dim outObj As Object
    Dim outAccount As Object
    Dim myFolder As Object
    Dim myItem As Object
    Dim att As Object
    Dim rspAttExists As Boolean
    Dim rspAttName As String
    
    ' 初始化Outlook应用对象
    Set outObj = CreateObject("Outlook.Application")
    Set outAccount = outObj.Session.Accounts.Item(1)
    Set myFolder = outAccount.Session.GetDefaultFolder(6) ' 参数6对应默认收件箱目录
    
    ' 获取首封未读邮件
    Set myItem = myFolder.Items.Restrict("[UnRead] = True").GetFirst
    
    ' 无未读邮件直接退出
    If myItem Is Nothing Then
        MsgBox "收件箱内未找到未读邮件"
        Exit Sub
    End If
    
    rspAttExists = False
    rspAttName = ""
    
    ' 遍历邮件所有附件
    For Each att In myItem.Attachments
        ' 跳过体积小于5KB的内嵌隐藏附件（可根据业务场景调整阈值，不需要过滤可删除该判断）
        If att.Size >= 5000 Then
            ' 取文件名最后4位，统一转小写后匹配.rsp后缀
            If LCase(Right(att.FileName, 4)) = ".rsp" Then
                rspAttExists = True
                rspAttName = att.FileName
                Exit For ' 找到匹配附件后直接终止遍历
            End If
        End If
    Next
    
    ' 返回校验结果
    If rspAttExists Then
        MsgBox "校验通过：首封未读邮件包含.rsp格式附件，附件名称：" & rspAttName
    Else
        MsgBox "校验不通过：首封未读邮件不存在.rsp格式附件"
    End If
End Sub

补充说明：

• 如果需要校验所有未读邮件而不是仅第一封，可对Restrict返回的邮件集合做循环遍历，逐个执行附件校验逻辑
• 如果业务场景中存在体积小于5KB的.rsp附件，可将大小判断阈值调低或直接移除大小过滤逻辑
• 后缀匹配逻辑可按需扩展，如需匹配多种格式可在判断条件中增加Or分支

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