要保存邮件的本地副本并重命名，可以使用VBA宏来实现。以下是一个示例代码：

Sub SaveEmailAsLocalCopy()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.NameSpace
    Dim olFolder As Outlook.MAPIFolder
    Dim olItem As Outlook.MailItem
    Dim savePath As String
    
    ' 设置保存路径
    savePath = "C:\Emails\" ' 可根据需要修改路径
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    ' 获取当前Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    ' 获取收件箱文件夹
    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 遍历收件箱中的所有邮件
    For Each olItem In olFolder.Items
        ' 检查是否为邮件项
        If TypeOf olItem Is MailItem Then
            ' 保存邮件为本地副本
            olItem.SaveAs savePath & olItem.Subject & ".msg", olMsg
        End If
    Next olItem
    
    ' 释放对象
    Set olItem = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
    
    MsgBox "保存完成！"
End Sub

在此示例中，宏将遍历收件箱中的所有邮件，并将每封邮件另存为本地副本。保存路径可根据需要进行修改。副本的名称将使用邮件的主题来命名，并附加".msg"扩展名。