使用Excel VBA将Outlook已发送邮件复制到Windows文件夹

的步骤如下：

打开Excel，并按下Alt + F11打开VBA编辑器。
在VBA编辑器中，选择插入 -> 模块，创建一个新的模块。
在新的模块中，编写以下VBA代码：

Sub CopySentEmails()
    Dim olApp As Object
    Dim olNamespace As Object
    Dim olFolder As Object
    Dim olItems As Object
    Dim olMail As Object
    Dim saveFolder As String
    
    ' 设置保存邮件的文件夹路径
    saveFolder = "C:\Path\To\Save\Folder\"
    
    ' 创建Outlook应用对象
    Set olApp = CreateObject("Outlook.Application")
    ' 获取Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    ' 获取已发送邮件文件夹
    Set olFolder = olNamespace.GetDefaultFolder(5)
    ' 获取已发送邮件列表
    Set olItems = olFolder.Items
    
    ' 遍历已发送邮件列表
    For Each olMail In olItems
        ' 判断邮件是否已读
        If olMail.UnRead = False Then
            ' 保存邮件到指定文件夹
            olMail.SaveAs saveFolder & olMail.Subject & ".msg"
        End If
    Next olMail
    
    ' 释放对象
    Set olItems = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
    
    MsgBox "已将已发送邮件复制到指定文件夹。"
End Sub

将代码中的saveFolder变量的值修改为你想要保存邮件的文件夹路径。
按下F5运行代码，或者在Excel中按下Alt + F8选择并运行CopySentEmails宏。
执行完毕后，你将在指定的文件夹路径中找到已发送邮件的副本。

这个VBA代码通过Outlook应用程序和对象模型，将已发送邮件复制到指定的Windows文件夹。它遍历已发送邮件文件夹中的每封邮件，判断是否已读，然后将未读的邮件保存为.msg文件到指定的文件夹路径中。

这个方法适用于需要将Outlook已发送邮件备份到本地文件夹的场景，例如需要归档或备份已发送的重要邮件。腾讯云没有直接相关的产品和服务来实现这个功能，但腾讯云提供了丰富的云计算产品和解决方案，可以满足各种企业和个人的需求。您可以访问腾讯云官方网站（https://cloud.tencent.com/）了解更多关于云计算的信息和产品。