如何通过ItemSend实现将已发送邮件复制到其他账户的文件夹

你需要的基于ItemSend事件实现待发邮件自动复制到剪贴板的需求，最成熟的实现路径如下：

方案1：Outlook VBA宏（原生无额外依赖，个人使用首选） #

该方案直接挂钩Outlook内置的ItemSend发送事件，无需安装额外软件，配置完成后即可自动触发：

• 按Alt + F11调出Outlook VBA编辑器，在左侧工程资源管理器中双击ThisOutlookSession对象打开代码编辑页
• 粘贴如下代码到编辑区：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    ' 过滤仅处理邮件类发送项，忽略会议邀请、任务等其他类型
    If TypeName(Item) = "MailItem" Then
        Dim sendMail As Outlook.MailItem
        Set sendMail = Item
        ' 复制邮件对象到系统剪贴板
        sendMail.Copy
        ' 可选：添加复制成功提示，不需要可以删除下一行
        MsgBox "待发邮件已复制到剪贴板", vbInformation
    End If
End Sub

• 调整宏安全级别：打开文件 > 选项 > 信任中心 > 信任中心设置 > 宏设置，选择「为所有宏提供通知」，保存设置后重启Outlook，启用该宏即可生效
• 生效后每次点击发送邮件时，系统会自动将该待发邮件复制到剪贴板，你切换到其他账户的目标文件夹按Ctrl + V即可完成粘贴

方案2：VSTO插件（适合企业批量部署场景） #

如果企业域环境禁用了VBA宏，可以基于.NET的VSTO框架开发轻量Outlook插件，逻辑和上述VBA完全一致：

• 插件注册监听Outlook的Application.ItemSend事件
• 事件触发时调用MailItem.Copy()方法完成剪贴板写入
• 打包插件后可以通过域策略批量推送安装，无需用户手动调整宏权限

内容的提问来源于stack exchange，提问作者Giorgio Pierotto