VBA:仅将最后一个(最近的)电子邮件附件保存在本地文件夹中

Sub SaveLastEmailAttachment()
    Dim OutlookApp As Object
    Dim OutlookNamespace As Object
    Dim OutlookFolder As Object
    Dim OutlookMail As Object
    Dim Attachment As Object
    Dim SaveFolder As String
    
    ' 设置保存附件的文件夹路径
    SaveFolder = "C:\Attachments"
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 获取Outlook命名空间
    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
    
    ' 获取收件箱文件夹
    Set OutlookFolder = OutlookNamespace.GetDefaultFolder(6)
    
    ' 获取最后一封邮件
    Set OutlookMail = OutlookFolder.Items.GetLast
    
    ' 检查是否有附件
    If OutlookMail.Attachments.Count > 0 Then
        ' 获取最后一个附件
        Set Attachment = OutlookMail.Attachments(OutlookMail.Attachments.Count)
        
        ' 保存附件到指定文件夹
        Attachment.SaveAsFile SaveFolder & "\" & Attachment.FileName
    End If
    
    ' 释放对象
    Set Attachment = Nothing
    Set OutlookMail = Nothing
    Set OutlookFolder = Nothing
    Set OutlookNamespace = Nothing
    Set OutlookApp = Nothing
End Sub