在Access vba中更改SenderEmailAddress

Sub ChangeSenderEmailAddress()
    Dim olApp As Object
    Dim olNamespace As Object
    Dim olFolder As Object
    Dim olMail As Object
    
    ' 创建Outlook应用程序对象
    Set olApp = CreateObject("Outlook.Application")
    
    ' 获取Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' 获取收件箱文件夹
    Set olFolder = olNamespace.GetDefaultFolder(6) ' 6表示收件箱
    
    ' 遍历收件箱中的邮件
    For Each olMail In olFolder.Items
        ' 判断邮件是否满足条件（例如特定主题、发件人等）
        If olMail.Subject = "特定主题" And olMail.SenderEmailAddress = "发件人邮箱地址" Then
            ' 修改发件人邮箱地址
            olMail.SenderEmailAddress = "新的发件人邮箱地址"
            
            ' 保存修改
            olMail.Save
        End If
    Next olMail
    
    ' 释放对象
    Set olMail = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub