如何将10封最近发送的邮件下载到ms access

Sub DownloadEmails()
    Dim objOutlook As Object
    Dim objNamespace As Object
    Dim objFolder As Object
    Dim objItems As Object
    Dim objMail As Object
    Dim strSQL As String
    
    ' 创建Outlook对象
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' 获取当前Outlook命名空间
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    
    ' 获取“已发送邮件”文件夹
    Set objFolder = objNamespace.GetDefaultFolder(5)
    
    ' 获取最近发送的10封邮件
    Set objItems = objFolder.Items.Restrict("[SentOn] >= '" & Format(Date - 7, "ddddd") & "'")
    objItems.Sort "[SentOn]", False
    
    ' 遍历邮件并将相关信息插入到Access表中
    For Each objMail In objItems
        strSQL = "INSERT INTO 邮件表 (发件人, 收件人, 主题, 正文, 附件) VALUES ('" & objMail.SenderEmailAddress & "', '" & objMail.To & "', '" & objMail.Subject & "', '" & objMail.Body & "', '" & objMail.Attachments.Count & "')"
        CurrentDb.Execute strSQL
    Next objMail
    
    ' 释放对象
    Set objItems = Nothing
    Set objFolder = Nothing
    Set objNamespace = Nothing
    Set objOutlook = Nothing
    
    MsgBox "邮件下载完成！"
End Sub