如何修改Outlook VBA代码仅处理文件夹内最新接收的邮件？

原代码会遍历目标文件夹的所有邮件，导致运行耗时过长，以下是调整后的代码，仅对最后接收的那一封邮件提取附件：

Sub Save_Attachment_GFI()
    Dim Olook As Outlook.Application
    Dim OMailItem As Outlook.MailItem
    Dim ONameSpace As Outlook.Namespace
    Dim Fol As Outlook.MAPIFolder
    Dim Atmt As Outlook.Attachment
    Dim TimeStart, TimeEnd
    Dim latestMail As Outlook.MailItem
    
    TimeStart = TimeSerial(8, 0, 0) ' 定义定时任务的起始时间
    TimeEnd = TimeSerial(22, 30, 0) ' 定义定时任务的结束时间

    Set Olook = New Outlook.Application
    Set ONameSpace = Olook.GetNamespace("MAPI")
    Set Fol = ONameSpace.GetDefaultFolder(olFolderInbox)
    Set Fol = Fol.Folders("FFA")
    Set Fol = Fol.Folders("FFA GFI")
    
    ' 关键改动：按接收时间降序排序，直接取第一封（最新接收）邮件
    With Fol.Items
        .Sort "[ReceivedTime]", olDescending
        Set latestMail = .Item(1)
    End With
    
    ' 仅处理最新邮件的附件
    If Not latestMail Is Nothing Then
        For Each Atmt In latestMail.Attachments
            ' 注意：请将此处的"C:XXX"替换为实际的本地文件夹路径，确保路径末尾带反斜杠
            Atmt.SaveAsFile "C:\XXX\" & Atmt.Filename
        Next Atmt
    End If
    
    ' 保留原定时刷新逻辑
    If Time > TimeStart And Time < TimeEnd Then
        AutoRefresh Now + TimeSerial(0, 2, 30)
    Else
        If Time < TimeStart Then AutoRefresh Date + TimeStart
        If Time > TimeEnd Then AutoRefresh (Date + 1) + TimeStart
    End If

    ' 释放对象，避免内存泄漏
    Set latestMail = Nothing
    Set Fol = Nothing
    Set ONameSpace = Nothing
    Set Olook = Nothing
End Sub

关键改动说明： #

• 新增latestMail变量专门存储最新邮件对象
• 通过Fol.Items.Sort "[ReceivedTime]", olDescending对文件夹内邮件按接收时间降序排序，直接取排序后的第一个Item就是最新接收的邮件
• 移除遍历所有邮件的循环，仅针对最新邮件处理附件，大幅缩短运行时间
• 补充对象释放语句，优化内存占用
• 修正原代码中路径格式问题，提醒替换为合法的本地文件夹路径

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